如何控制多线程停止?

Question

(*****线程所在的单元******) 
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; 这句话放错了,但是我不知道放到哪里呢? 
望指点!

Answer 1

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的值。