请问如何中止线程中正在执行的查询？

Question

我是用的ADOQuery查询,当然在程序中按下中止按钮后，要怎么样才能中止当然查询　？
我试着关闭该线程，可是线程是关了，查询却还在继续：（

Answer 1

设置一个BOOL开型变量，线程定期检查该值：为TRUE继续，为FALSE结束退出。

Answer 2

to  Purpleendurer
请问你说的退出是什么退出？我是用按钮来关闭线程的，可是该查询还在运行，但此时我的程序的确又只有一个线程了，不知是怎么回事？

Answer 3

参考
http://www.cx66.com/cxgzs/program/delphi/895.htm

Answer 4

我使用
q1.Terminate ;
q1.Suspend;    //关闭该线程q1.Resume  开始该线程，不知可不可以？但是在运行时出现了问题，有的时候当我再次开始该线程时，会出现"在异步运行时，操作不能被执行"，不知道 是怎么 回事，有时又没有问题，请高手告诉我一下。