Möglichkeit 2 sollte es sein
StrtoHex macht das
Delphi-Quellcode:
function StrToHex(AStr: String): String;
var i: Integer;
begin
result := '';
for i:=1 to StrLen(Pchar(AStr)) do begin
Result := Result+' '+IntToHex(Ord(AStr[i]),2);
end;
end;
Tut aber nix zur sache weil es wie gesagt auf die stringterminierung hinausläuft nur wie umgehe ich die