Thema: Delphi strtohex

Einzelnen Beitrag anzeigen

ReVenGer

Registriert seit: 11. Okt 2005
Ort: Hannover
50 Beiträge
 
Delphi XE7 Architect
 
#1

strtohex

  Alt 12. Jun 2007, 15:55
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?
  Mit Zitat antworten Zitat