好久没有拿分数了,今天居然遇到一个这么简单的问题,nnd赚大了!
下次希望你不要用这种标题。
我喜欢用Assigned来判断,
if not Assigned(MyThreadThrd) then
MyThreadThrd := TMyThread.Create(false);
else
begin
// to do something u like;
end;
线程执行部分:TMyThread.Execute
begin
FreeOnTerminate := true;
OnTerminate := ThreadDone;
// do your job
end;
在ThreadDone中
procedure ThreadDone;
begin
MyThreadThrd := nil;
end;
知道什么是OnTerminate事件吗?
如果不知道请看Help,我想多说了。