急!!!关于线程的问题

linzi 2003-07-01 12:48:32
我做了一个线程,Execute中有一个循环,如下:
while true do
begin
.....
.....
end;
循环没有结束条件,如果我想结束线程,用Terminate,结果不行,程序死了,我该怎样才能正确的结束该线程?
...全文
26 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hkbarton 2003-07-01
  • 打赏
  • 举报
回复
while not Terminated do??
李_军 2003-07-01
  • 打赏
  • 举报
回复
在Execute中这样写
mythead.FreeOnTerminate:=true;
while Terminated do
begin
.....
.....
end;
要结束的话,用MyThread。Terminate
rikky 2003-07-01
  • 打赏
  • 举报
回复
mythead.FreeOnTerminate:=true;

试试!
mjmj 2003-07-01
  • 打赏
  • 举报
回复
while not self.Terminated do
begin
.....
.....
end;
不好意思用马甲了
xah_JD 2003-07-01
  • 打赏
  • 举报
回复
flag:=true;
while Flag do
begin
.....
.....
end;
要结束,
flag:=false;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧