Zitat von
ichbins:
du kannst den Filestream verwenden, dann geht es nur etwas anderst:
Delphi-Quellcode:
var LStream: TFileStream;
buf:array of byte;
begin
SetLength(LBuffer, 10);
LStream := TFileStream.Create(DeinDateiname, fmOpenReadWrite);
//10 Zeischen aus der Datei lesen
LStream.Read(LBuffer[1], 10);
//zurück an position 0 springen
//10 Zeischen zurück schreiben
LStream.Write(LBuffer[1], 10);
LStream.Free;
end;
//der Inhalt des Array of Byte beinhaltet nach dem Lesen die ersten 10 Zeichen der Datei als Byte-Zahlen, also 0-255. Die kannst du dann noch weiter in 1en und 0en oder alternativ Hex-Zeichen zerlegen:
Delphi-Quellcode:
function hex(b:byte):string;
var
hexes:string='0123456789ABCDEF';
begin
result:=hexes[1+ (b div 16)]+ hexes[1+(b mod 16)];
end;
War der erste Quellcode nicht mit dem hier gerade identisch, bis auf dei Variabeln?? Und außerdem wird das arrey gar nicht in der function verwendet
also von daher... ich weiß nicht... und das mit dem umwandel hab ich nicht ganz gechekt...
