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中一段可以判断网络连接的代码

Delphi 读取全网站链接

Delphi setcurrentdir 设置当前文件夹路径

Delphi xe5实现的一个阳历转换成阴历的代码

Delphi 分割字符串 extractstrings

Delphi 创建应用程序的快捷方式

Delphi 检测鼠标键盘多久没有活动

Delphi 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber

Delphi 递归遍历 treeview树节点

Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名

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

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