delphi怎样使adoquery1循环每隔一秒执行一次

rgn 2013-07-25 03:45:58

delphi怎样按下ToolButton1使adoquery1循环每隔一秒才执行一次
procedure TForm5.ToolButton1Click(Sender: TObject);
begin
adoquery1.First;
while not adoquery1.Eof do
begin
...
adoquery1.Next;
end;
是不是要加个timer控件？请教，好久没用delphib

...全文

418 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

yxknet 2013-07-27

打赏
举报

学习一下啊~~~

babydog01 2013-07-26

打赏
举报

需要注意：

要是数据多了，1秒钟循环不会结束。

固执的大叔 2013-07-26

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    //你的处理
    ADOQuery1.Next;
  end;

  Timer1.Enabled:=False;
end;

pathletboy 2013-07-25

打赏
举报

adoquery1.First;
Timer1.Enable := True;这个放按钮里

procedure TForm5.Timer1Timer(Sender: TObject);
begin

  if not adoquery1.Eof then
  begin
     //your code
     adoquery1.Next;
   end
   else
     Timer1.Enable := False;
end;

明白了没？

rgn 2013-07-25

打赏
举报

procedure TForm5.Timer1Timer(Sender: TObject); begin adoquery1.First; while not adoquery1.Eof do begin adoquery1.Next; end; 那个循环怎么改啊，放在timer里一下就执行完了，不是隔一妙执行

pathletboy 2013-07-25

打赏
举报

在Timer事件中可以自己把自己关了。

rgn 2013-07-25

打赏
举报

可以在button中打开定时器，但哪里结束定时器？

pathletboy 2013-07-25

打赏
举报

1． Timer的主要属性 (1) Enabled属性：当值为True时，打开定时器，否则关闭定时器。默认值为true。 Timer1.Enabled := True; 打开定时器 Timer1.Enabled := False; 关闭定时器

rgn 2013-07-25

打赏
举报

怎样结束循环呢？我要按button才执行，执行到最后一个就结束 procedure TForm5.Timer1Timer(Sender: TObject); begin adoquery1.First; while not adoquery1.Eof do begin adoquery1.Next; end;

pathletboy 2013-07-25