Listview Delete Problem

[Bernd29bln]

Hallo,

Code:

Delphi-Quellcode:

 for lst := 0 to Listview.Items.Count -1 do
  if (Listview.Items[lst].Selected) and (Listview.Items[lst].SubItems[3] = 'Nein') then
    begin
      ShowMessage('Dieser Eintrag kann nicht gelöscht werden.');
     end else
   if (Listview.Items[lst].Selected) and (Listview.Items[lst].SubItems[3] = 'Ja') then
     begin
      ListView.DeleteSelected;
    end;

Ich bekomme immer eine Fehlermeldung. Habe es auch schon so probiert: ListView.Items.Delete[lst]; geht aber auch nicht.

Weis jemand rat?


Gruß Bernd

[Bernd29bln]

Hat sich erledigt

Danke trotzdem.

Gruß Bernd

[Luckie]

Und wie lautete die Fehlermeldung und warum geht es jetzt?

[Muetze1]

Er läuft die Schleife vorwärts durch und DeleteSelection kann mehr als einen Eintrag löschen und damit wird das rückwärts durchlaufen der Schleife kein Heilmittel (aber dann könnte man die Schleife mit Break verlassen).

[Popov]

Man löscht mit downto, nicht mit to.