String wird nur Teilweise ausgelesen

[Dax]

Delphi-Quellcode:

function MoreStrToHex(s: string): string;
var i: integer;
begin
  result := '';
  for i := 1 to length(s) do
    result := result + inttohex(chr(s[i]), 2);
end;