strtohex

[ReVenGer]

Hi zusammen,

ich möchte eine Spielstand Datei als Hex ins Memo laden, nur bekomm ich die Umwandlung
von String zu Hex nicht so wirklich gebacken.

Ein Hex Editor zeigt mir zumindest andere Werte.

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;

mal ein Auszug aus der Datei '...ÿ..ö.üÿæ.....'

so zeigt es der Hex Editor an '0E 00 90 FF 00 00 F6 13 FC FF E6 11 10 00 00 00'

und so mein Programm '2E 2E 2E FF 2E 2E F6 2E FC FF E6 2E 2E 2E 2E 2E'

Was läuft da schief?