Jaaaaa, for Schleifen sind schon schwer...

[Daniel B]

Hallöchen,

mich macht eine einfache Schleife ziemlich fertig.

Code:

procedure TForm1.Button3Click(Sender: TObject);
//Markierten Eintrag löschen
var
  i: integer;
begin
  ListView1.DeleteSelected;
  for i := 0 to ListView1.Items.Count -1 do
  begin
    ListView1.Items.Add;
    ListView1.Items.Item[i].Caption := IntToStr(i);
  end;
end;

So, damit nummeriere ich die Einträge neu. Der erste Eintrag erhält die 0 und der letzte die höchste Nummer. Sollte aber anders rum sein. Also der erste Eintrag die höchste und der letzte die 0.
Wenn ich for i := ListView1.Items.Count -1 to 0 do schreibe, funktioniert das ganze nicht. Es wird nichts neu durchnummeriert.
Was mach ich den falsch? Vielen Dank.

Grüsse, Daniel