盒子论坛 v2.1

要实现在特定的时间，比如说2004-02-28-9:15:19（时间可变）触发程序的某个函数（程序运行的情况下），该怎么做？用消息？有这样的消息吗？如果有，怎么使用呢？还是。。。用计时器？一秒钟一监测？还是。。。？
还有，怎么知道时间到了这个特定的时间了？我知道可以用Format将Date格式转换成一般的时间格式，那如何将一般的时间格式如2004-02-28-9:15:19换算成Date值呢？
----------------------------------------------
-

作者：

kiu (kiu)	★☆☆☆☆	-
	盒子活跃会员

2004/2/27 13:54:13

1楼：

用计时器

依次判断，年、月、日、时、分

如果全部复合运行指定函数

if date=nowDate then
begin
    if event='event1' then
    event1
    else if event='event2' then
    event2
    ......
end;

function event1;
begin
showmessage('event1');
end;

function event2;
begin
showmessage('event2');
end;

...

---------------
仅供参考 ^_^
----------------------------------------------
-

作者：

power_source (power)	★☆☆☆☆	-
	盒子活跃会员

2004/2/27 14:16:50

2楼：

用ontimer控件
----------------------------------------------
我真的不会！

作者：

qdpingping (ping)	★☆☆☆☆	-
	普通会员

2004/2/27 14:33:20

3楼：

我也想过用计时器，但会不会太耗内存了？还有别的方法吗？
依次判断，年、月、日、时、分？那会不会太麻烦了？没有将年、月、日、时、分整合成一个实数(Date类型)的函数？
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/27 14:47:59

4楼：

不会耗内存，偶的 automation对象监视都一直开着内存！
----------------------------------------------

作者：

kiu (kiu)	★☆☆☆☆	-
	盒子活跃会员

2004/2/27 14:50:33

4楼：

当然可以，你在设置event time的时间用Date保存就可以了

EncodeDate (将指定的年，月，日参数转换为 Tdatetime
EncodeTime (将指定的时、分,秒参数转换为 Tdatetime
EncdoeDateTime (将指定的年，月，日，时,分,秒参数转换为 Tdatetime

----------------------------------------------
-

作者：

kiu (kiu)	★☆☆☆☆	-
	盒子活跃会员

2004/2/27 14:55:19

5楼：

我想这个可能更加适合

strToDateTime();

code:
---------------------------------------------
var
str:string;
TempDateTime:TDateTime;
begin
str:='2002/02/02 22;22;22';
TempDateTime:=strToDateTime(str);
showmessage(DateTimeToStr(TempDateTime));
end;

----------------------------------------------
-

作者：

qdpingping (ping)	★☆☆☆☆	-
	普通会员

2004/2/27 14:58:31

6楼：

多谢多谢各位大哥的帮忙，我这就试试去
----------------------------------------------
-

信息

登陆以后才能回复