Aye, pushen ist erst nach 24h erlaubt, Kapitän Hansklok.
Jedoch zu Deinem Problemchen, schlägt der Skipper das hier vor:
Delphi-Quellcode:
procedure TDokument.Save(Datei: TFileStream);
var
i: Integer;
begin
// Anzahl der Items reinschreiben:
Datei.WriteBuffer(Count, SizeOf(Integer));
for i:= 0 to Count-1 do
Items[i].Save(Datei);
end;
procedure TDokument.Load(Datei: TFileStream);
var
Seite: TSeite;
I: Integer;
J: Integer;
begin
// Auslesen der Anzahl der Items
Datei.ReadBuffer(I, SizeOf(Integer));
for J := 0 to I - 1 do
begin
Seite := TSeite.Create(Form1.Offset, Form1.PaintBox1.Canvas);
Seite.Load(Datei);
Add(Seite);
end;
end;