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 crc算法的实现

Delphixe edit限制只能输入数字

Delphi unigui执行程序部署有3种形式

Delphi获取本机或者网关的互联网ip地址

Delphi10.3.2安卓sdk安装

Delphi case 语句中使用字符串

Delphi xe中 exit 的新用法

Delphi datasnap(midas)三层架构中，常用事件及其触发顺序

Delphi模仿“千千静听”滚动标题栏

Delphi 2009 之 tstringbuilder 类[6]: equals

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

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