Inhalt wird nicht gespeichert?

[mo_greene]

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;