Multipage-Support: Ich komme nicht weiter

[Die Muhkuh]

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;