一个按钮来停止过程中的数据循环

Question

原意是这样的：
　　
procedure aa;
while adoquery1.eof do
  begin
.
.
    adoquery1.next  end;ADOQUERY里面有一万条记录
现在我在窗体上放一个铵钮点击后，停止当前正在循环ADOQUERY的的记录指针，

Answer 1

var
  stop: Boolean; // 定义全局变量procedure aa;
  stop := False; // 循环开始前清停止标记，放在这里保证了代码的可持续运行。
  while adoquery1.eof do
  begin
.
.
    adoquery1.next;
    if stop then break;  end;
.
.procedure Button1Click(Sender: TObject);
begin
  stop := True;  // 按钮点击后，置停止标记
end;