Hi,
Ich würde das ganze so machen:
Delphi-Quellcode:
procedure TAsdThread.Execute;
begin
while not Terminated do begin
proc1(parameter);
proc2(parameter);
if func3(parameter) then Continue;
proc4(parameter);
break;
end;
end;
// Delphi Hilfe:
// Continue = Setzt die Programmausführung mit dem nächsten Durchlauf einer for-, while- oder repeat-Schleife fort.
// Break = Verlässt eine for-, while- oder repeat-Schleife.
Ich denke, so ist es noch eleganter gelöst.
Grüße Sven