HTML-Pläne aufteilen auf mehrere Seiten

[Svenkan]

Delphi-Quellcode:

 Query1.First;
 [...]
 end
 else begin
 while not Query1.EOF do begin
 if ((rcount mod max_p_seite) = 0) then begin
  //Seite abschließen
  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_tableend.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);

  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_ende.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);

  vplan_heute.Lines.SaveToFile(dsb_exp_path+'\vplan_heute_'+IntToStr(seite)+'.htm');
  seite:=seite+1;
  rcount:=1;

  //neue Seite öffnen
  vplan_heute.Lines.Clear;
  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_start.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);

  Params.Values['seite'] := IntToStr(seite+1);

  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_tabledesc.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);
 end;

PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_vbit.tpl');

[...Bestimmen der Vertretungsvariablen...]

 Params.Values['klasse'] := klasse+' - #'+inttostr(rcount);
 Params.Values['stunde'] := stunde;
 Params.Values['fehlt'] := fehlt1;
 Params.Values['vertritt'] := vertritt1;
 Params.Values['fach'] := fach1;
 Params.Values['raum'] := raum1;
 Params.Values['bemerkung'] := bemerkung_leh;

 vplan_heute.Lines.Add(PageProducer.Content);
   Query1.Next;
  Inc(rcount);
  end;
 end;
 end;

/edit: @ Teddy: Leider ist dies hier nicht angebracht. Das sind Monitorpläne und die Rechner, auf denen das Programm läuft, haben nicht zwangsweise Internetzugang!