Zwei Datensätze mit for-Schleife auf eine Seite drucken

[jfheins]

Getippt:

Delphi-Quellcode:

const SetsPerPage = 2;

for i := 0 to (FContactList.Count - 1) div SetsPerPage do 
begin 
   PrintAllContactsHeader(Printer.Canvas); 
   PrintAllContactsFooter(Printer.Canvas, Printer.PageNumber); 
      
   for j := 0 to SetsPerPage - 1 do
   begin
      if (i * SetsPerPage + j) = FContactList.Count then break;  
      // Abbrechen, wenn keine Datensätze mehr vorhanden
      PrintAllContact(j, Printer.Canvas, FContactList.Items[i * SetsPerPage + j]);
   end;
         
   if i <>  (FContactList.Count - 1) div SetsPerPage then 
      Printer.NewPage; // Wenn es nicht der letzte Durchlauf ist, neue Seite
end;