Doppelte Schleife verlassen

[Martin W]

Hi,

folgender Code aktuell:

Delphi-Quellcode:

 
var
  changed: boolean;
  varCurrActClass:          TLastActionClass;

  i:                        integer;
begin     

    changed := True;
  
     while changed do
        begin
          changed := False;
          for i := 0 to FLastActionList.Count -1 do
            begin

              varCurrActClass := FLastActionList.Items[i];

              if (...) then
                begin
                  FLastActionList.Remove(varCurrActClass);
                  FLastActionList.TrimExcess;
                  changed := True;
                  break;
                end;

              if (...) then
                begin
                  FLastActionList.Remove(varCurrActClass);
                  FLastActionList.TrimExcess;
                  changed := True;
                  break;
                end;

            end;
        end;

end;

Gibt es hierbei eine Möglichkeit, das changed "wegzuoptimieren"? Also ein Break, das sowohl die if, als auch die While Schleife abbricht?

Viele Grüße,
Martin