(*****线程所在的单元******)
unit unmythread;
type
TMyThread = class(TThread) (*****调用线程的单元*****)
unit unmain; procedure TFrmMain.button1Click(Sender: TObject); //按钮1的单击事件
var
threadmyconserver: TMyThread;
begin
threadmyconserver:=TMyThread.Create(False);
end; 我想在 unmain 单元的任何 过程或函数 中终止线程的执行.请问如何操作,比如说 adoquery1.recordcount=0的时候? var
threadmyconserver: TMyThread; 这句话放错了,但是我不知道放到哪里呢?
望指点!
unit unmythread;
type
TMyThread = class(TThread) (*****调用线程的单元*****)
unit unmain; procedure TFrmMain.button1Click(Sender: TObject); //按钮1的单击事件
var
threadmyconserver: TMyThread;
begin
threadmyconserver:=TMyThread.Create(False);
end; 我想在 unmain 单元的任何 过程或函数 中终止线程的执行.请问如何操作,比如说 adoquery1.recordcount=0的时候? var
threadmyconserver: TMyThread; 这句话放错了,但是我不知道放到哪里呢?
望指点!
解决方案 »
- CreateRemoteThread相关的问题
- Delphi菜鸟求学
- 如何多线程播放同一个声音文件(一首歌N段重唱)?
- 这个问题我想了很久了,希望大家帮帮我。
- 打开文件(保存文件)的对话窗 怎么才能做到...?
- 一个送分题,在线等
- 关于数组问题:如何获得最后一个有值的元素的序号,
- 到哪儿下在delphi7的升级文件
- 88分+万分感激:在Delphi中如何编程取出摄像头、扫描仪、数码相机中的图像并编辑它???
- SOS!SOS!SOS! DLL中动态报表问题, QuickRep1.Preview为什么差错
- MMTool 控件的 demos 程序啊!急求啊!
- 帮我看看这段程序,运行修改密码的时候总提示无法将Null插入Class(表中属性),改列不允许空值,Insert失败。我没用Insert啊
unit unmain;interface
....
var
threadmyconserver: TMyThread; implementationprocedure TFrmMain.button1Click(Sender: TObject); //按钮1的单击事件
begin
threadmyconserver:=TMyThread.Create(False);
end; procedure TFrmMain.ExitThread;
begin
threadmyconserver.Terminate;
threadmyconserver.Waitfor;
end;
线程代码中要自己检测Terminated的值。