Jau, richtig, hab ich nicht dran gedacht
Muss natürlich so aussehen :
Delphi-Quellcode:
function StringToHex(s:string) : string;
var t : integer;
begin
result := '';
for t := 1 to length(s) do begin
if t = length(s) then
result := result + IntToHex(ord(s[t]),2)
else
result := result + IntToHex(ord(s[t]),2) + ' ';
end;
end;