首先定义了一个类
Type
Tpct = Class(TThread)
public
c:boolean;
Protected
Procedure execute;override;
end;
procedure aa();
var
pct:Tpct;
begin
pct:=Tpct.create(false);
end;procedure bb();
begin
Tpct.create(false);
end;
aa和bb效果一样吗
Type
Tpct = Class(TThread)
public
c:boolean;
Protected
Procedure execute;override;
end;
procedure aa();
var
pct:Tpct;
begin
pct:=Tpct.create(false);
end;procedure bb();
begin
Tpct.create(false);
end;
aa和bb效果一样吗
eg:with Tpct.create(True) do
begin
try
FreeOnTerminate := False;
Resume;
...
finally
Terminate;
end;
end;