Zitat von
DeddyH:
Ich verstehe nicht ganz, was da jetzt so schwer sein soll.
Pseudo-Code:
Delphi-Quellcode:
var max = 10, Zähler = 1;
begin
Ergebnismenge.First;
erste_Seite;
while not Ergebnismenge.EOF do
begin
if (Zähler mod 10) = 0 then
begin
Seite_schließen;
neue_Seite;
end;
Ausgabe;
inc(Zähler);
Ergebnismenge.Next;
end;
Seite_schließen;
end;
So in der Art könnte das gehen.
Leider funktioniert das eben nicht. Ich hatte etwas ähnliches, und bei mir hats auch nicht getan.
Es wird leider alles in eine Datei geschrieben.