For Schleife in 5er Schritten

[himitsu]

Code:

for i := Anfang div 5 to Ende div 5 do 
  (i * 5) = 5er-Schritte :zwinker:

Delphi-Quellcode:

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

oder

Delphi-Quellcode:

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