定时运行这个问题其实老早就接触到了，不过在上次的程序中似乎没有很好的解决这个问题，并且没有深入下去。

开发技术指南» 文章正文

引言：定时运行这个问题其实老早就接触到了，不过在上次的程序中似乎没有很好的解决这个问题，并且没有深入下去。

摘要： table:array[0..255] of dword;procedure maketable();var i,j,crc:integer;begin for i:=0 to 255 do begin crc:=i; for j:=0 to 7 do begin if (crc and 1)<>0 then crc:=(crc shr 1) xor $edb88320 else c......

·递归清空窗体上所有文本框，下拉框中的文本 »显示摘要«

摘要：{*单元说明：递归清空窗体上所有文本框，下拉框中的文本。作者：笔名：易一英文名：yeeyeee-mail ： jane1437@163.com创建时间： 2005年3月24日及最后修改时间：修改人修改时间及：修改说明：版权声明：版权所有，转载请注明本人邮箱，笔名，并保证文章的完整性。*}//函数单元。procedure tformcybase.cleartext(acontrol:......

用Timer实现定时运行

定时运行这个问题其实老早就接触到了,不过在上次的程序中似乎没有很好的解决这个问题,并且没有深入下去.这次再次碰到同样的问题,在查找了网上的资料以后,对这一问题有了比较深的理解.在程序中实现定时运行的思路:

由timer控件实现【程序编程相关:找VB,DELPHI高手开发功能简单的进】

【推荐阅读:实现窗口从实变透明到消失这是一个例子】

两个timer控件,其中timer1负责每一分钟检查一次系统时间与设定时间的差值,如果两者相差5分钟,则继续检查,直到当相差时间小于5分钟,触发timer2,timer2的定时器时间就是这个时间间隔.当timer2到时以后,就触发主程序.具体代码【扩展信息:[原创]Delphi中ScriptCon】

procedure tform1.button1click(sender: tobject);

begin

timer1.interval:=60*1000; //启动监控,每1分钟检查一次设定时间与当前时间

timer1.enabled:=true;

end;

procedure tform1.timer1timer(sender: tobject);

var

l_time: tdatetime;

h_time: tdatetime;

ss:int64;

begin

timer1.enabled:=false;

h_time:= strtotime(10:30:00);

l_time := time; //now是取当前的日期加时间,time只取当前时间

... 下一页

·通过字符串，类的引用，创建窗体。 »显示摘要«

摘要：//控件单元。{*单元说明：创建模式窗口，和非模式窗口的类，保证非模式窗口只创建一次。作者：笔名：易一英文名：yeeyeee-mail ： jane1437@163.com创建时间： 2005年5月20日及最后修改时间：修改人修改时间及：修改说明：版权声明：版权所有，转载请注明本人邮箱和笔名。*}unit showformclass;interfaceuses sysutils, cl......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：