Delphi-Quellcode:
function StringToHex : string;
var
fs:TFileStream;
i : Integer;
b : Byte;
begin
result := '';
fs := TFileStream.Create('test.gam', fmOpenRead);
try
For i := 0 to fs.Size do begin
fs.ReadBuffer(b,sizeof (b));
//oder fs.ReadByte(b); <-- bin mir nichtt sicher
result := result + '|' + IntToHex(b,2);
end;
finally
fs.Free;
end;
end;
Allerdings solltest du dir bewusstsein, das es vielleicht besser ist, den Spielstand immer im Speicher zu haben (z.B als TMemoryStream). Den sonst musst du dich so blöd mit dem Trennstrich rumärgern.