TListe als Datei Speichern

[Bjoerk]

Zitat von Sir Rufo:

Es geht doch nicht nur um das Speichern einer Spielkarte, sondern eines ganzen Stapels (evtl. sogar noch Meta-Informationen über die Spielstufe, etc.)

So hatte ich's auch gemeint:

Delphi-Quellcode:

procedure TSpielkartenListe.SaveToFile(const FileName: string);
var
  Stream: TFileStreamEx;
  I: integer;
begin
  Stream := TFileStreamEx.Create(FileName, fmCreate);
  try
    WriteHeader(Stream);
    Stream.WriteInteger(Count);
    for I := 0 to Count - 1 do
      FItems[I].SaveToFileStream(Stream);
  finally
    Stream.Free;
  end;
end;