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