自动执行代码问题:

Question

自动执行代码问题:
我的窗体有一这样一些控件,Timer1,Label2.bitbtn1,其中bitbtn有一些数据库操作的代码,如清空一个表等等@@@
我在timer的事件代码里这样写的:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label2.Caption:='   ';
  label2.Caption :=formatdatetime(' yyyy"-"mm"-"dd hh:mm:ss AM/PM',now);
  //if copy(label2.Caption,12,22)='03:57:00 PM'  then
  /// showmessage('sdfsdfdfdf');
    //.onclick;
end;end.
我想让时间到达一个值的时候bitbtn1按钮里的代码自动执行,这样写行不行?
如果不行我该怎么做?

Answer 1

這樣寫是可以執行的 我試過！
但是縂覺得方法不好
不如 SQL語句裏的 wait for ....
不知道 D中有沒有這樣的函數

Answer 2

可以~~
if formatdatetime(' yyyy"-"mm"-"dd hh:mm:ss AM/PM',now) >= 'xxxxxx' then
  btnclick(nil);