Continue + Repeat-Until

[samso]

oder auch:

Delphi-Quellcode:

While true Do 
Begin
  ...
  If i > 0 Then Begin 
      ... 
  End
  Else
    break;
end;
Result := Assigned(Nodes);

oder vielleicht:

Delphi-Quellcode:

Repeat
  ...
  If i > 0 Then Begin 
      ... 
  End
Until i<=0;
Result := Assigned(Nodes);