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

[jaenicke]

Das ist auch kein Wunder, denn du nutzt ja jeweils die Indizes i div 2 und (i + 1) div 2. Jetzt schauen wir mal:
i = 0: Index 1 = 0 div 2 = 0, Index 2 = 1 div 2 = 0
i = 1: Index 1 = 1 div 2 = 0, Index 2 = 2 div 2 = 1
Du hast also schon da den Eintrag 0 dreimal gedruckt.

Dadurch, dass du immer zwei auf einmal druckst, trotzdem aber alle Einträge durchgehst, klappt das nicht. Du hast zwei Möglichkeiten. Entweder du halbierst die Anzahl der Schleifendurchläufe oder du springst bei jedem zweiten heraus. Ich bevorzuge ersteres.
Jetzt mal richtig:

Delphi-Quellcode:

  for i := 0 to (FContactList.Count - 1) div 2 do
  begin
    PrintAllContactsHeader(Printer.Canvas);
    PrintAllContactsFooter(Printer.Canvas, Printer.PageNumber);
    PrintAllFirstContact(Printer.Canvas, FContactList.Items[i * 2]);
    if i * 2 + 1 < FContactList.Count then // Wenn Schluss ist, brauchts keine neue Seite usw. mehr
    begin
      PrintAllSecondContact(Printer.Canvas, FContactList.Items[i * 2 + 1]);
      Inc(PageNumber); // Evtl. nicht mehr nötig
      Printer.NewPage;
    end;
  end;

// EDIT:
Warum eigentlich genau zwei pro Seite? Ist die Größe der Einträge fest, so das nie mehr draufpassen? Sonst wäre es vielleicht sinnvoller jeweils so viele wie möglich draufzusetzen.

Mit einer while-Schleife ließe sich das dann bei einem dynamischen Layout recht einfach umsetzen.