T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
我想做的就是，比如说用TIMER设置时间，只要和系统时间相等就实现一个功能，如果只有一个事件的话，那就没有问题。但是现在问题来了。如果我有多个时间要在不同的时间的内显示不同的功能，应该怎么写代码吗？是不是要写多线程啊？还是怎么弄，哪位可以帮我写下代码，谢谢了。
芙
芙蓉弟弟
Unregistered / Unconfirmed
GUEST, unregistred user!
用多个timer就可以了 每个timer控制一个事件 这样自己思路也比较清晰
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
不会吧，比如说客户，设定了。1点要干什么，2点要干什么，3点要干什么，4点要干什么，难道我要设定4个TIMEER控件？
白
白河愁
Unregistered / Unconfirmed
GUEST, unregistred user!
你的timer控件难道可以设定几点钟触发？
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
就像生活中，填一张日程表，几点几点干什么。然后你每五分种去看一下时间（每五分钟TIMER触发一次），看钟上的时间（系统时间）和你的日程表中那个时间相对，就做哪件事。做了的就勾上它。
H
hanyuhen1
Unregistered / Unconfirmed
GUEST, unregistred user!
就一个TIMER，判断当前时间是几点，如果到一点执行某个事件，到两点再执行某个事件，不是很容易实现吗？
S
smlabc
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是SQL之类的数据库,本身就支持JOB,如果放程序里..做个线程扫下时间就行了,不同的时间通知不同的模块来处理,至于Timer,建议不要使用
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
如果我是要做一个提醒软件，比如说有2中提醒方法，一个是没隔几分钟做是么，另外一中是在固定的时间做是么，然后添加到数据库，比如说，我12点提醒吃饭，1点提醒上班，。。。怎么样添加这样的代码，我的意思就是这段代码怎么写。
T
tippchlj
Unregistered / Unconfirmed
GUEST, unregistred user!
var tmtime: string;begin tmtime := FormatDateTime('hh:mm:ss', now); if tmtime = '12:00:00' then begin // end; if tmtime = '13:00:00' then begin // end;end;
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
那么如果时间是由客户自己设置的呢？难道我要，IF TIMTIME=STRTODATE(EDIT1.TEXT).....?
白
白河愁
Unregistered / Unconfirmed
GUEST, unregistred user!
在DOS下，有个每秒触发 18.2 次的中断，可以 Hook 之。WINDOWS 下，则有成千上万的消息在每秒触发。
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
太深奥了。不懂啊。
D
dingwo006
Unregistered / Unconfirmed
GUEST, unregistred user!
感觉用timer控件效率不会高了，
G
ganbaba
Unregistered / Unconfirmed
GUEST, unregistred user!
我有做类似功能+SQL SERVER,当前时间和设定的时间比较，如果相等，就提醒该干什么了,可以设定多个，就是一天某几个时间都能做到
草
草原骏马
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的同志们已经说了很多方法了。如果你选用Timer的话。你的想法是对的。那么如果时间是由客户自己设置的呢？难道我要，IF TIMTIME=STRTODATE(EDIT1.TEXT).....?就是这么个方法。
Z
zmtom18988
Unregistered / Unconfirmed
GUEST, unregistred user!
var tmtime: string; clienttime1:string;(客户时间); clienttime2:string;begin tmtime := FormatDateTime('hh:mm:ss', now); if tmtime =clienttime1 then begin // end; if tmtime = clienttime2 then begin // end;end;clienttime1的值在客户电击时,改变为他设定的值.procedure TForm1.Edit1Click(Sender: TObject);begin clienttime1:=edit1.text;end;看看可以么? 不行再想办法哦。
W
wz108
Unregistered / Unconfirmed
GUEST, unregistred user!
timer的时间不用管，1s、60s什么的都行，把客户设定的时间和任务写入数据库中，timer执行时读取数据库表，判断时间是否匹配，然后执行相应的功能就行了
9
912360101
Unregistered / Unconfirmed
GUEST, unregistred user!
学习一下 .[
]
]
3
32881
Unregistered / Unconfirmed
GUEST, unregistred user!
用个定时器， 例如间隔 X 秒检测一下当前的系统时间。。 对比一下是否达到客户要求的时间。。 到了就执行事件呗/。/ 一个定时器就够了。
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
我想要的不是定点时间，是要间隔时间的提醒，比如说。每过5分做什么，而且是要有多这个这个的设定，就是说不要只有一次设定的，要有多个好选的，比如说每过5分钟干嘛，每过2分钟干嘛，每过1分钟干嘛。等等。