Что вызывется после Execute у потока?

[TwiX]

Я склоняюсь к Destroy. Я прав?

[Баламут]

По крайней мере он точно вызывается по завершении Execute.

[JTG]

Project - options - compiler - use debug DCUs
Бряк на вызов Execute - F9 - F7, F7, F7...

[TwiX]

JTG, хоть что-то я умею) Так пробовал перед созданием темы. Никуда дальше не переходит.

[BOBAH13]

Сообщение от TwiX

Я склоняюсь к Destroy. Я прав?

Зависит от некоторых обстоятельств.
1. FreeOnTerminate установлен в True
2. Тело обработчика Execute пустое

И то "сразу" это для человека - да, для системы - нет. Вопрос странный немного )

[JTG]

TwiX, ещё как переходит А именно в finally Classes.ThreadProc

function ThreadProc(Thread: TThread): Integer;
var
  FreeThread: Boolean;
begin
{$IFDEF LINUX}
  if Thread.FSuspended then sem_wait(Thread.FCreateSuspendedSem);
{$ENDIF}
  try
    if not Thread.Terminated then
    try
      Thread.Execute;
    except
      Thread.FFatalException := AcquireExceptionObject;
    end;
  finally
    FreeThread := Thread.FFreeOnTerminate; 
    Result := Thread.FReturnValue;
    Thread.DoTerminate;
    Thread.FFinished := True;
    SignalSyncEvent;
    if FreeThread then Thread.Free;
{$IFDEF MSWINDOWS}
    EndThread(Result);
{$ENDIF}
{$IFDEF LINUX}
    // Directly call pthread_exit since EndThread will detach the thread causing
    // the pthread_join in TThread.WaitFor to fail.  Also, make sure the EndThreadProc
    // is called just like EndThread would do. EndThreadProc should not return
    // and call pthread_exit itself.
    if Assigned(EndThreadProc) then
      EndThreadProc(Result);
    pthread_exit(Pointer(Result));
{$ENDIF}
  end;
end;

[TwiX]

JTG, у меня такого нет:

Project - options - compiler - use debug DCUs