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 截图函数screenshot

Delphi xe5 android平台 调用 webservice

Delphi 删除只读文件

Delphi 木马配置器通用写法(末尾追加数据的方法)

简单的rs232c/ttl电平转换和串口取电

Delphi如何粘贴html格式文本到windows剪切板

Delphi 取得文件夹及下一级文件夹下的文件列表

Delphi 删除字符串中指定字符

Delphi中的处理事件 application.processmessages

Delphi 10.3 断点调试相关快捷键

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

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