Guten Tag

Immer wen ich diesen Code ausführe :

zusammenfalten · markieren

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]

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

Hmmm aber die Fehlermeldung kommt leider immer noch

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

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

ListView.Items[L].Delete; Du versuchstest ja immer den markierten zu Löschen

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

Was soll der Code genau machen?

Er löscht alle makierten TListView einträge

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