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.