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'); //到达时间 --你自己定；
if s=d then
begin
showmessage('Y');
// 这中间你加入你自己要 执行的数据库语句


end;
end;


  

相关阅读 >>

Delphi json 转换成 tfdmemtable

Delphi 设置系统启动文件夹自身开机自动运行

Delphi实例键盘记录

Delphi 给label1字加边的又一个算法

Delphi如何获得当前操作系统语言环境

Delphi cef4Delphi chromium1 设置user-agent

Delphi setformfullscreen()窗体全屏显示

Delphi中使用xmlhttp / xmlhttprequest 避免缓存

Delphi getmimetypefromfile 获取文件mime类型

Delphi pchar与string互转

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

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