For Schleife in 5er Schritten

[marabu]

Hallo,

hier noch ein Ansatz:

Delphi-Quellcode:

for j := 0 to Pred(FResult.FieldsCount) div 5 do
begin
  with Listview do
  begin
    LI := Items.Add;
    n := j * 5;
    LI.Caption := FResult.FieldValue(n);
    LI.SubItems.Add(FResult.FieldValue(n+1));
    LI.SubItems.Add(FResult.FieldValue(n+2));
    LI.SubItems.Add(FResult.FieldValue(n+3));
    LI.SubItems.Add(FResult.FieldValue(n+4));
  end;
  FResult.Next;
end;

Frohe Weihnachten