ok, so mit 'nem repeat-until sieht es natürlich schöner/übersichtlicher aus,
aber nur der Vollständigkeit halber:
Zitat:
wie genau das funzt hab ich jetzt auch nicht mehr im kopf, steht aber bestimmt in der delphi hilfe...
jupp, steht da irgendwoe ... siehe
goto?
Delphi-Quellcode:
procedure TAsdThread.Execute;
label MyReset;
begin
MyReset:
proc1(parameter);
proc2(parameter);
if func3(parameter) then goto MyReset;
proc4(parameter);
end;
// normaler Weisewürde man ja proc1 und proc2 nicht einrücken
// aber so erkennt man zumindestens die Schleife ^_^