RSS订阅 | 匿名投稿
您的位置:网站首页 > 时间 > 正文

delphi 时间到就触发事件

作者:admin 来源:未知 日期:2010/5/22 20:25:52 人气: 标签:

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;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: