(Delphi7 我想用Timer控件让10条数据在label循环出现)

发布网友发布时间：2024-10-02 07:52

共2个回答

热心网友时间：2024-10-27 16:29

procere TForm1.Timer1Timer(Sender: TObject);
begin
if adoquery1.Active then adoquery1.Close;
   begin
     adoquery1.SQL.Clear;
     adoquery1.SQL.Text:='select * from table';
     Adoquery1.Prepared;
     adoquery1.Open;
   end;
   Label1.Caption:=Adoquery1.Fields[0].Value; //此处需要进行类型转换;
end;

热心网友时间：2024-10-27 16:29

只有用定时器进行检测了。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com