Access violation beim Löschen von Listview-Einträgen

[dazar_t]

Guten Tag

Immer wen ich diesen Code ausführe :

Delphi-Quellcode:

procedure TForm4.DLT_BTNClick(Sender: TObject);
var
I,L,CNT:Integer;
begin
if Not( ListView.ItemIndex = -1 ) then
for I := 0 to ListView.Items.Count - 1 do
  Try
    if ListView.Items[I].Selected then
    CNT := CNT+1;
  Finally
    for L := 0 to CNT do
    ListView.Items[ListView.ItemIndex].Delete;
  End;
end;

Bekomme ich immer diese Fehlermeldung : Access violation ar adress 0046EC17 in module 'Project3.exe'.

Funkotinieren tut der Code aber komischer weise Optimal

Help pls

[edit=Luckie]Titel "Bekomme einen Fehler" verbessert. Mfg, Luckie[/edit]

[mkinzler]

Delphi-Quellcode:

for I := 0 to ListView.Items.Count-1 do

[dazar_t]

Hmmm aber die Fehlermeldung kommt leider immer noch

[mkinzler]

Delphi-Quellcode:

for L := 0 to T.Count-1 do

[dazar_t]

Auch dieses verhindert die fehlermedeldung nicht. Ich habe oben auch mal einen veränderten code hingesetzt der allerdings immer doch diese Fehlermeldung hervorruft.

[mkinzler]

Delphi-Quellcode:

ListView.Items[L].Delete;

Du versuchstest ja immer den markierten zu Löschen

[dazar_t]

Dieses kommt im Oben NEUEN Code nicht auf aber die fehlermeldung schon!

[mkinzler]

Was soll der Code genau machen?

[dazar_t]

Er löscht alle makierten TListView einträge

[bluesbear]

Mir erschließt sich der Zweck des Codes nicht so ganz. Gegenüber dem ersten Post ist die Stringlist verschwunden. Was soll der eigentlich tun?

EDIT: schon wieder zu langsam :(