用这个
var
NowTime:string;
begin
NowTime:=Timetostr(Now);
if Copy(NowTime,1,5)='00:00' then
begin
showmessage('hello');
end;
end;
var
NowTime:string;
begin
NowTime:=Timetostr(Now);
if Copy(NowTime,1,5)='00:00' then
begin
showmessage('hello');
end;
end;
解决方案 »
- delphi 怎么实现代理上网?
- 关于 between and~~~~~~~~`
- 超级简单的DELPHI新手问题,哪位大哥给点提示??????
- 怎么知道我的子窗体现在有几个?
- DBGirdEH问题,关于自动调整行数(RowLines)(在线等待!解决马上给分!!!)
- 客户端怎样调用应用服务器中定义的用Property???
- 怎样快速将一个execl表导入到sqlserver数据库表中,
- 如何使OpenDialog的默认打开路径是我的文档
- 关于数据库恢复的问题?
- 拖动图像时怎样解决抖动????
- 庆祝专家分达100,请大家讨论加入WTO对中国的影响,请各自讨论对自己行业影响,up有分!
- Delphi --> C++Bulider
procedure TForm1.Timer1Timer(Sender: TObject);
var
NowTime:string;
begin
NowTime := FormatDateTime('hh:mm:ss',Now);
if Pos(':00:00',NowTime)>0 then
begin
showmessage('hello'); end;
end;