Ich hab da wohl noch nen denkfehler drin.
Delphi-Quellcode:
function StringToHex(str :string) : string;
var
fs:TFileStream;
i : Integer;
b : Byte;
begin
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
str := Str + '|' + IntToHex(b,2);
end;
finally
fs.Free;
end;
end;
und aufgerufen wird es so
label3.caption:=stringtohex(str);
war jetzt nur damit es schnell geht nen label.
die datei die ich einlese hat nur 30kB.
von daher nichts großes, deshalb habe ich mich auhc für die kleine variante entschieden.
aber das programm erzeugt einen error.