Здравствуйте! Чего-то я затупил. В Дельфе 7 создаю тип и переменную потока:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
type
TLecSendRestThread = class(TThread)
private
procedure MainProc;
{ Private declarations }
protected
procedure Execute; override;
end;
var
LecSendRestThread: TLecSendRestThread;
делаю вызов потока:
1.
2.
3.
4.
5.
6.
7.
if LecSendRestThread = nil then
begin
LecSendRestThread := TLecSendRestThread.Create(True);
LecSendRestThread.FreeOnTerminate := True;
LecSendRestThread.Priority := tpIdle;
end;
LecSendRestThread.Resume;
после того как после вызова Terminate потока заканчивается цикл:
1.
2.
3.
4.
while not Terminated do
begin
Synchronize(MainProc);
end;
переменная потока LecSendRestThread не становится равной nil. Хотя я явно указал перед запуском
LecSendRestThread.FreeOnTerminate := True;
Подскажите, где я чего упустил из виду.
