procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval :=1000;
edit1.Text := formatDateTime('yyyy-mm-dd ,hh:mm:ss',now);
这里我要怎么判断 当前时间如果等于 19:00:00 的时候执行下面的语句呢?
showmessage('123');
begin
timer1.Interval :=1000;
edit1.Text := formatDateTime('yyyy-mm-dd ,hh:mm:ss',now);
这里我要怎么判断 当前时间如果等于 19:00:00 的时候执行下面的语句呢?
showmessage('123');
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货