用Timer 控件OnTimer事件里面:procedure TForm1.Timer1OnTimer(Sender: TObject); begin if Now >= '2008-11-13' then begin .... TTimer(Sender).Enabled := False; end; end;
if date>strtodate('2008-11-23') then
if date>2008-11-23 then两边数据类型都不一致 怎么行呢?
if date>2008-11-23 then两边数据类型都不一致 怎么行呢?
哈哈,晕了,搞得我都犯了这个错误,还以为是在写sql的代码....应该是: procedure TForm1.Timer1OnTimer(Sender: TObject); begin if Now >= StrToDate('2008-11-13') then begin .... TTimer(Sender).Enabled := False; end; end; 2楼的:if date>strtodate('2008-11-23') then 这个,必须是2008-11-24条件才满足,不过也可以将 > 改成 >=,在2008-11-23 00:00:00.001时,就触发.看具体需要了.
begin
if Now >= '2008-11-13' then
begin
....
TTimer(Sender).Enabled := False;
end;
end;
if date>strtodate('2008-11-23') then
if date>2008-11-23 then两边数据类型都不一致 怎么行呢?
if date>2008-11-23 then两边数据类型都不一致 怎么行呢?
procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
if Now >= StrToDate('2008-11-13') then
begin
....
TTimer(Sender).Enabled := False;
end;
end; 2楼的:if date>strtodate('2008-11-23') then 这个,必须是2008-11-24条件才满足,不过也可以将 > 改成 >=,在2008-11-23 00:00:00.001时,就触发.看具体需要了.
注册成系统服务,这样程序在开机前就已经运行了,而且系统注销后进程不死!
将应用程序弄成这样,会不会出别的问题?