Listenelemente bedingt löschen

[Björn Ole]

Danke für Deine so flotte Antwort.

Zitat von himitsu:

Hat sich Delphi eigentlich nicht wegen des bDeleteAllBusy beschwert,
welches bei (not bIsBusy) nicht initialisiert wird?

Ja, aber da bDeleteAllBusy nur gesetzt und ausgelesen wird, wenn bIsBusy = true ist, hab ich darauf erstmal keine Rücksicht genommen.


Es gibt (nur) noch zwei Ungereimtheiten bei deiner Version:

1) Die Userabfrage wird genau andersrum gewertet, d.h. klickt der User auf Ja (= trotzdem entfernen) wird aufgehört, bei Nein wird munter weitergelöscht.
Edit: Beim Klick auf Absenden kam mir der Geistesblitz, UWD := MessageBox({Weiterlöschen Ja/Nein?}) = ID_NO;

2) Wenn nur selektierte Einträge gelöscht werden sollen, wird trotzdem über das Löschen von nicht selektierten, jedoch in Arbeit befindlichen Einträgen gefragt.

Ich werd mich selbst auch mal versuchen, muss aber deinen, übrigens sehr viel hübscheren Code, erstmal vollständig verdauen.