Continue + Repeat-Until

[himitsu]

joar, das mit'm Break war mir auch schon eingefallen ...
und wie du schon sagtest ... hübsch isses nich

Das Problem war hier einfach, daß ich es anders im Kopf hatte (siehe alte OH von D7)
und es eigentlich ganz anders war (siehe neue OH von D09)

ansonsten fiehlen mir noch im Zusammenhanb mit meinem Problem solche Lösungen ein:

Delphi-Quellcode:

// Beispiel von oben (gekürzt)
Class Function TXMLNodeList.ParseNodePath(...
  Begin
    Repeat
      ...
      If i > 0 Then Begin
        ...
        Continue;
      End;
    Until True;
    Result := Assigned(Nodes);
  End;

// rekursive Lösung
Class Function TXMLNodeList.ParseNodePath(...
  Begin
    ...
    If i > 0 Then Begin
      ...
      ParseNodePath(...
    End;
    Result := Assigned(Nodes);
  End;

// rekursive Lösung - Result anders gesetzt
Class Function TXMLNodeList.ParseNodePath(...
  Begin
    ...
    If i > 0 Then Begin
      ...
      Result := ParseNodePath(...
    End Else Result := Assigned(Nodes);
  End;

// via Goto - wie ich's jetzt hab
Class Function TXMLNodeList.ParseNodePath(...
  Label Loop;
  Begin
    Loop:
    ...
    If i > 0 Then Begin
      ...
      Goto Loop;
    End
    Result := Assigned(Nodes);
  End;