关于多线程停止释放问题

[baody8]

子线程,空转不加任何东西

procedure Twork.Execute;
begin
    FreeOnTerminate:=true;
    while not Terminated do
    begin
        Sleep(1);
    end;
end;

主线程停止,问题来了,这种方式线程无法释放.

FTwork:=Twork.Create(False);
FTwork.Terminate;

[ooolinux]

FreeOnTerminate:=true;
要放在子线程的构造函数里。

[baody8]

引用 2 楼 flcop 的回复:

你这样立即调用Terminate，有可能Execute还没来得及执行就退出了， 建议把设置FreeOnTerminate放到构造函数中。

问题是没有释放谢谢

[baody8]

引用 3 楼 u010165006 的回复:

FreeOnTerminate:=true;
要放在子线程的构造函数里。

不放可以吗?

[sanjianxia]

不放要手动进行释放。

[baody8]

引用 6 楼 sanjianxia 的回复:

不放要手动进行释放。

我这是WHILE阿,怎么自动释放

[BlueStorm]

因为前面有FreeOnTerminate:=true； 所以FTwork.Terminate;执行完后，线程就会自动释放，不需要也不能再执行FTwork.Free，;

[ooolinux]

引用 5 楼 baody8 的回复:

[quote=引用 3 楼 u010165006 的回复:]
FreeOnTerminate:=true;
要放在子线程的构造函数里。

不放可以吗?

[/quote]

看看书吧，好一点的书比较有说服力。

[baody8]

引用 8 楼 u010165006 的回复:

[quote=引用 5 楼 baody8 的回复:]
[quote=引用 3 楼 u010165006 的回复:]
FreeOnTerminate:=true;
要放在子线程的构造函数里。

不放可以吗?

[/quote]

看看书吧，好一点的书比较有说服力。[/quote]

那不用构造怎么释放呢

[flcop]

你这样立即调用Terminate，有可能Execute还没来得及执行就退出了， 建议把设置FreeOnTerminate放到构造函数中。

[ooolinux]

引用 9 楼 baody8 的回复:

[quote=引用 8 楼 u010165006 的回复:]
[quote=引用 5 楼 baody8 的回复:]
[quote=引用 3 楼 u010165006 的回复:]
FreeOnTerminate:=true;
要放在子线程的构造函数里。

不放可以吗?

[/quote]

看看书吧，好一点的书比较有说服力。[/quote]

那不用构造怎么释放呢[/quote]

不自动释放的话，一般要
WaitFor
Free

[llllyyyy_61]

FreeOnTerminate:=true;这句应该放while的后面？
主线程：FTwork:=Twork.Create(False);
FTwork.FreeOnTerminate:=true;//上面做了这里应该不用做的

//顺利执行完上面的，下面应该不用执行
//关闭
FTwork.Terminate();
FTwork.Free;

[doloopcn]

procedure Twork.Execute;
begin
FreeOnTerminate:=true;
while not Terminated do
begin
Sleep(1);
end;
end;
这个代码就不应该这样写吧：
procedure Twork.Execute;
begin
//这一行不应该出现这里FreeOnTerminate:=true;
while true do
begin
Sleep(1);
end;
end;
调用：
var Work:TWork;
....
begin
Work:TWork.Create(False);
Work.FreeOnTerminate:=True;
Work.Resume;
end;
释放：
Work.Terminate;//DELPHI会自动释放线程资源，自动FREE