ListView : Zugriffverletzung beim Löschen

[Darty]

Hi Leutz,

mit der Code ..

Delphi-Quellcode:

  If ListView1.Items.Item[ListView1.ItemIndex].Selected then
  ListView1.Items.Item[ListView1.ItemIndex].Delete;

wird die selektierte Zeile gelöscht.
Aber wenn nichts selektiert ist dürfte es doch nicht ausführen oder ? Weil da kommt dann eine Zugriffverletzung.

[Tpercon]

Dann erweiter die if Abfrage dochj einfach auf ListView1.SelCount = 1

[Jens Schumann]

Hallo,

Zitat:

Zitat von Darty

Aber wenn nichts selektiert ist dürfte es doch nicht ausführen oder ? Weil da kommt dann eine Zugriffverletzung.

Aber wenn nichts selektiert ist hat ItemIndex den Wert -1. Die Schutzverletzung tritt dann bei

Delphi-Quellcode:

If ListView1.Items.Item[ListView1.ItemIndex].

auf

[Christian Seehase]

Moin Jens,

wenn man nun aber die Abfrage auf ItemIndex vor die Selected Abfrage legt (mit AND verknüpft) dürfte der Fehler nicht mehr auftreten.
Voraussetzung ist natürlich, dass man in den Projektoptionen\Compiler die "Complete boolean eval" nicht aktiviert hat (deaktiviert ist Default).

[Darty]

Super Leutz ..

Habe jetzt den Code geändert in diesen hier

Delphi-Quellcode:

  If ListView1.SelCount = 1 then
  Begin
    If ListView1.Items.Item[ListView1.ItemIndex].Selected then
    ListView1.Items.Item[ListView1.ItemIndex].Delete;
  End

Ich denke diese Lösung kann man stehen lassen und das Problem als gelöst markieren.

Danke nochmals :thuimb:

[Tpercon]

Oder etwas kürzer:

Delphi-Quellcode:

    If (ListView1.SelCount = 1) and (ListView1.Items.Item[ListView1.ItemIndex].Selected) then
    ListView1.Items.Item[ListView1.ItemIndex].Delete;

[Christian Seehase]

Moin Tpercon,

nur um nochmal darauf hinzuweisen, falls es untergegangen ist:
Das funktioniert so nur wenn "Complete boolean eval" abgeschaltet ist.

[Tpercon]

@ Christian: Hast natürlich recht, aber das sollte ja auch so sein.

[Christian Seehase]

Moin Tpercon,

mir ist auch noch kein vernünftiger Grund eingefallen diese Standardeinstellung zu verändern, aber wer weiss ;-)

[Daniel B]

Hi,

fall man keine Lust hat mit Index zu arbeiten, es gibt auch DeleteSelcted. ;)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListView1.SelCount = 1 then
    ListView1.DeleteSelected;
end;