Thread nach Terminate wieder starten

[shmia]

Zitat von Alex_ITA01:

und dann aus irgendeinen Grund, terminiert wird,

Und welcher Grund?

Delphi-Quellcode:

procedure TMyThread.InternalExecute;
begin
  while not Terminated do
  begin
    //Tue irgendwas... 
  end;
end;

procedure TMyThread.Execute;
begin
  try
    InternalExecute;
  except
    // Exception innerhalb eines Threads abfangen und protokollieren
    on E:Exception do
    begin
      logger.LogError('TMyThread terminated with exception: '+E.Classname+','+E.Message);
    end;
  end;
end;