Zitat von
Cöster:
Davon versteh ich ehrlich gesagt fast nur Bahnhof.
Du brauchst doch nur auf die Größenangaben zu achten
Zitat von
Cöster:
Warum nicht?
Is mir zu umständlich und 's gibt Besseres.
In deinem Beispile hat man 'nen extra Writer verwendet, aber in TFileStream sollte doch wohl schon einer drin sein?
Schau mal in der
OH nach TFileStream ... dort müßte es Funktionen mit den Wörtern Read und Write im Namen geben
Delphi-Quellcode:
procedure Save(const AFileName: string; Figure: Integer);
var
F: TFileStream;
begin
F := TFileStream.Create('MyFile.dat', fmCreate);
F.Write...(Figure, SizeOf(Figure));
// oder F.Write...(Figure, 4);
F.Free;
end;
bei "..." kann es sein, daß dort noch irgendwas hin muß, z.B. WriteBuffer, oder so, aber da kann dir die
OH besser helfen.
PS: bei einem Integer (4 Byte) dürfte eine 4 auch schon reichen, oder du läßt es so, wie es ist
