Listenelemente bedingt löschen

[himitsu]

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

erste Zusammenfassung:

Delphi-Quellcode:

for i := Items.Count - 1 downto 0 do
begin
  if IsItemBusy(i) and not UserWantsToDeleteAllBusyItems then
    Continue;

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

zweite/weitere Zusammenfassung:

Delphi-Quellcode:

var
  i: integer;

begin
  for i := Items.Count - 1 downto 0 do
    if not (IsItemBusy(i) and not UserWantsToDeleteAllBusyItems)
        and not (AOnlySelected and not Items[i].Selected) then
      Delete(i);
end;

und mit der Userabfrage eventuell so

Delphi-Quellcode:

var
  i: integer;
  UWD, CalledUWD: boolean;

  function GetUWD;
  begin
    if not CalledUWD then 
    begin
      UWD := UserWantsToDeleteAllBusyItems;
      CalledUWD := true;
    end;
    Result := UWD;
  end;

begin
  UWD := false;
  CalledUWD := false;
  for i := Items.Count - 1 downto 0 do
    if not (IsItemBusy(i) and not GetUWD)
        and not (AOnlySelected and not Items[i].Selected) then
      Delete(i);
end;

jetzt bleibt noch eine Frage: hat sich der himi da irgendwo vertan?


[edit]
OK, ein Fehlerchen in GetUWD war schonmal drinnen