Listenelemente bedingt löschen

[Björn Ole]

Nabend zusammen,


ich bräuchte mal ein ppar Optimierungsanstöße. Und zwar:

In meiner Anwendung befindet sich eine Liste mit Elementen.
Mit Hilfe einer procedure sollen nun entweder alle oder alle selektierten Elementen gelöscht werden.
Wird jedoch mit einem zu löschenden Element gerade gearbeitet (Thread im Hintergrund),
soll es übersprungen werden, es sei denn, der Benutzer will es trotzdem löschen.

Hier mal mein Ansatz.

Delphi-Quellcode:

procedure DeleteItems(AOnlySelected: boolean);
var
  i: integer;
  bIsBusy: boolean; // true, wenn Item gerade in Benutzung
  bDeleteAllBusy: boolean; // true, wenn der Benutzer Item trotzdem löschen will
  bCanDelete: boolean;
begin
  for i := Items.Count - 1 downto do
  begin
    bIsBusy := IsItemBusy(i){prüft, ob Item gerade vom Thread bearbeitet wird};
    if bIsBusy then
      bDeleteAllBusy := UserWantsToDeleteAllBusyItems{kümmert sich um UserAbfrage};

    if bIsBusy and (not bDeleteAllBusy) then
      Continue; // Item überspringen, da busy und Benutzer nicht löschen will

    bCanDelete := not (AOnlySelected and not Items[i].Selected);
    if bCanDelete then
      Delete(i);
  end;
end;

Mir kommt die Umsetzung von der Logik her viel zu aufgebläht und unschön vor.
Habt ihr einen besseren Weg?

Sehr sinnvoll wäre es zusätzlich noch, wenn die Benutzerabfrage nur einmal erscheinen würde, so nach dem Motto
"Zu löschende Elemente sind in Benutzung. Trotzdem alle (selektierten) löschen? Ja/Nein/Abbrechen"

Meine Birne qualmt allein schon von der Problembeschreibung...


Dankerli,
Björn