delphi 时间到就触发事件

本文整理自网络，侵删。

 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 access violations 问题的解决之道

Delphi datasnap使用ipv6

Delphi getmem(mystring,1024);//开辟1024个字节freemem(mystring,1024);//释放

Delphi 提升程序进程权限为debug权限

Delphi注册与卸载系统服务

Delphi写的验证身份证号有效性函数

Delphi 查看指定文件是否在进程列表中

Delphi的对象注销方法destroy和free的区别

Delphi getdesktopdir 获取桌面路径

Delphi 在电脑屏幕上显示图片

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 时间到就触发事件