Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: TListe als Datei Speichern

  Alt 16. Nov 2013, 10:01
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;
  Mit Zitat antworten Zitat