Zitat von
mkinzler:
Des ganzen Vorgangs der Speicherung ( von der Erzeugung des Streams bis zum Schliessen desgleichen)
Ich denke, dass dies nicht nötig ist, da die Speicherung der restlichen Elemente funktioniert.
Delphi-Quellcode:
procedure TAuto.InDateiSchreiben (var Fs : TFilestream);
(* -------------------------------------------------------------------- *)
var
i : integer;
begin
FS.Write(Name, sizeOF(Name));
FS.Write(Kennzeichen, sizeOF(Kennzeichen));
FS.Write(GeschGer, sizeOF(GeschGer));
FS.Write(Farbe, sizeOF(Farbe));
FS.Write(Preis, sizeOF(Preis));
FS.Write(DX, sizeOF(DX));
FS.Write(GesMenge,sizeOF(GesMenge)); //wird, wie gesagt nicht gespeichert :(
Delphi-Quellcode:
procedure TListe.Store(Dateiname : string);
(* -------------------------------------------------------------------- *)
var Elem : TElement;
Fs : TFilestream;
begin
DeleteFile(Dateiname);
Fs := TFilestream.Create(Dateiname, fmCreate);
if not IsEmpty
then begin
Fs.Write(Lilaenge, SizeOf(Lilaenge));
First;
while NOT EoList do
begin
Elem := GetElement;
Elem.InDateiSchreiben (Fs);
inc(AktuellePos);
end;
end;
Fs.Free;
end;