Möglichkeit um Threads zu reseten ?

[pH1L]

Also wenns so ausschaut:

Code:

procedure TAsdThread.Execute;
begin
  proc1(parameter);
  proc2(parameter);
  if func3(parameter) then Reset;
  proc4(parameter);
end;

dann ginge es so, das stimmt schon :

Code:

procedure TAsdThread.Execute;
begin
  repeat 
    proc1(parameter);
    proc2(parameter);
  until not func3(parameter);
  proc4(parameter);
end;

Danke für die schnelle Antwort
mfg