怎样整点报时?求一最简、最省资源方法!!

Question

怎样一到整点就报时?报时的形式任意.
还有,程序有一数据表,怎样让数据表中某一数据在指定时间内显示出来?
求一最简、最省资源方法!!

Answer 1

用timer可以，如何判断正点？怎么保证我不判断两次正点呀？如我在8:00:00报过一次，8:00:02怎么能不报呢？

Answer 2

uses dateutils;...if (minuteof(now)=0) and (secondeof(now)=0)  then ...

Answer 3

if FormatDatetime('hh:mm:ss',now)='01:00:00' then...类推

Answer 4

检测方法建议使用TIMER控件，每秒检测一次。判断正点的方法是判断分，当分为00，则认为是正点。获取年月日时分秒的方法：
var
  year,month,day,hour,minute,second,mm,week:word;
begin
    DecodeDate(present,year,month,day);
    Decodetime(present,hour,minute,second,mm);
  ...
end;报时方法:
声音吧：sndplaysound('SY0.WAV',SND_ASYNC);让数据表中某一数据在指定时间内显示出来：
表字段最少有：时间、字幕
做个标签lable1：lable1.caption:=表.字幕;
对比时间的方法同上了！

Answer 5

设置一个标志变量，
报过时就置该变量为True，
过一分后，
又自动将其恢复为False