本文整理自网络,侵删。
delphi 时间到就触发事件
var
S,D:tdatetime;
begin
Label1.Caption:=FormatDateTime(' hh:mm:ss',Now); //此时
//S:=FormatDateTime(' hh:mm:ss',Now);
s:=strtodatetime(Label1.Caption);
D:=strtodatetime('14:01:02'); //到达时间 --你自己定;www.delphitop.com
if s=d then
begin
showmessage('Y');
// 这中间你加入你自己要 执行的数据库语句
end;
end;
相关阅读 >>
Delphi - 利用dll编程控制摄像头实现拍照、录制视频
Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试
Delphi中webbrowser(或者embeddedwebbrowser)控件打开部分网站报“invalid floating point operation”异常的解决方法
更多相关阅读请进入《Delphi》频道 >>