请教THREAD线程类 执行完成了 怎么销毁
type
Scaner = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
procedure Scaner.Execute;
var
i:Integer;
begin
for i := 0 to 100 do

begin
Sleep(100);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
s:Tscan;
begin
s:=Tscan.Create;

end;

要求Execute的代码执行完成后自动销毁 谢谢
[解决办法]

引用:

还是不行
if (Assigned(s[i])=False) and (zx = False) then
Assigned指针如果为空 就返回FALSE 我LOG上面 ZX一直是0 也就是(Assigned(s[i])=False)没跳过去，指针一直不为空

用Assigned和判断是不是nil都不行，这两个判断都是判断指针有没有值，线程虽然释放了，但指针没有指定为nil，