是个多线程的问题吗?
你把a声明为一个局部变量就可以了。
.....
begin
when data comes do
DowithThread;
end;procedure DowithThread;
var
a : TMyThread;
begin
a := TMyThread.create(self);
a.FreeOnTerminate := True;
end;
这样,线程执行就会自动释放了。
你把a声明为一个局部变量就可以了。
.....
begin
when data comes do
DowithThread;
end;procedure DowithThread;
var
a : TMyThread;
begin
a := TMyThread.create(self);
a.FreeOnTerminate := True;
end;
这样,线程执行就会自动释放了。
解决方案 »
- msjet40.dll 的非常奇怪的问题
- 多年没发过帖子,发个帖子散散分
- 关于添加函数的小问题,急!!无法进行相应的操作
- 建新delphi QQ群:欢迎大家一起来讨论4480637
- QuickReport中的QrExpr问题。急~~
- ADODataSet.Insert和ADODataSet.Append有什么区别?
- 关于BDE+ACCESS 的User Name 及Password 是什么呢?
- forgot的散分帖:请有饲养宠物的朋友进来看看。
- 正则表达式:如何获取子表达式内容?
- 求解:扑克牌的秘密
- ◆◆◆◆◆◆寻项目软件文档◆◆◆◆◆◆
- Delphi6 数学单元(math.pas)中的函数错误!!!
能传指针吗?我试了一下,编译通不过。
应该怎么写。
我重载了现成的create函数。