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;