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

[Neutral General]

Zitat:

Also ein Break, das sowohl die if, als auch die While Schleife abbricht?

Du meinst die for- und die while-Schleife

Nein sowas gibt es nicht. Es gibt nicht wirklich eine andere Möglichkeit als sich zu merken ob die äußeren schleifen abgebrochen werden sollen.

[Martin W]

Oh, ja klar, die for und while Schleife

Danke deiner Antwort!


Viele Grüße

[Der schöne Günther]

Goto

[Neutral General]

Zitat von Der schöne Günther:

Goto

über Exceptions/Abort und einem entsprechend günstig gesetzten try-except Block ginge es auch. Aber das sind dann halt die weniger schönen Möglichkeiten.

[p80286]

Zitat von Der schöne Günther:

Goto

Hat mal wer Hammer und Nägel da?

Gruß
K-H

[Uwe Raabe]

Du kannst beide Schleifen in eine separate Methode verlagern und diese dann bei Bedarf mit Exit verlassen.

[Uwe Raabe]

Zitat von Martin W:

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

In deinem Beispiel führen die beiden Breaks aber ja gerade nicht zum Abbruch der while-Schleife, sondern zu derer Fortsetzung. Die while-Schleife würde ja nur dann beendet, wenn keine der if-Bedingungen innerhalb der for-Schleife anschlägt.

Ist das jetzt so gewollt oder war nur deine Frage falsch formuliert?

[Sherlock]

Zitat von p80286:

Zitat von Der schöne Günther:

Goto

Hat mal wer Hammer und Nägel da?

Gruß
K-H

Das nicht, aber ich hätte da zwei relativ große Holzbalken, die ich beisteuern könnte.

Sherlock

[himitsu]

Jupp, hier geht das Exit, da sowieso die Funktion verlassen wird, nach den Schleifen.

Ihr könnt ja gern man bei Emba den Vorschlag einreichen das Break und Continue zu ändern.
(mein uralter Vorschlag im QC wurde ja nicht beachtet )

z.B.

Delphi-Quellcode:

Break 2;
Continue 2;

für das Verlassen/Fortsetzen von den inneren zwei Schleifen.

Und für For-Schleifen eventuell auch

Delphi-Quellcode:

for i1 := 0 to 10 do begin
  for i2 := 0 to 10 do begin
    ...
    Break i1;
  end;
end;

für "Breche alle Schleifen ab, bis hin zur For-Schleife mit der i1-Variable".
Eventuell kann man die Repeat- und Whileschleifen auch "benennen" und dann Break DerName; .


Und dann hätte ich auch gern noch ein "Self" für With-Blöcke, oder den "Alias", wie es ihn in tausenden anderen Sprachen gibt.
sogar in http://www.amazon.de/Revolutionary-G.../dp/1874416206