(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
只有用定时器进行检测了。