Jaaaaa, for Schleifen sind schon schwer...

[Christian Seehase]

Moin Daniel B,

Warum machst Du davor eigentlich immer ein ListView1.Items.Add?
Damit verdoppelst Du doch die Anzahl der Items.

So sollte es gehen:

Code:

[b]procedure[/b] TForm1.Button3Click(Sender: TObject);
[color=#000080]//Markierten Eintrag löschen[/color]
[b]var[/b]
  i: integer;
  iCount : integer;

[b]begin[/b]
  ListView1.DeleteSelected;
  iCount := ListView1.Items.Count;
  [b]for[/b] i := 0 [b]to[/b] ListView1.Items.Count -1 [b]do[/b]
  [b]begin[/b]
    ListView1.Items.Item[i].Caption := IntToStr(iCount-i);
  [b]end[/b];
[b]end[/b];