delphi 一个程序问题
procedure TForm1.FormCreate(Sender: TObject);begin
if datetimetostr(now)>'2011-1-31 13:11:00'then
form1.Close;
end; 结果是form1窗口并没有关闭，如何能够按照获取的时间值来关闭窗口？
请高手指教。
当前位置：编程学习 > Delphi >>
begin
if datetimetostr(now)>'2011-1-31 13:11:00'then
form1.Close;
end; 结果是form1窗口并没有关闭，如何能够按照获取的时间值来关闭窗口？
请高手指教。
begin
if datetimetostr(now)>'2011-1-31 13:11:00'then
form1.Close;
end; 结果是form1窗口并没有关闭，如何能够按照获取的时间值来关闭窗口？
请高手指教。
答案：楼主的程序不能关闭的原因是字符串比较错误
因为DateTimeToStr返回的字符串是带有特殊字符的, 比如今天的日期就是2011/1/31 13:11:00
所以不能比较, 可以提取日期和时间单独比较, 写了一个给楼主
程序如下:
procedure TForm1.Button1Click(Sender: TObject);
const
dTargetDate: DWORD = 20110131;//日期
dTargetTime: DWORD = 131100; //时间
var
dYear, dMonth, dDay, dHour, dMinite, dSecond, dMSecond: WORD;
dCurrent: DWORD;
begin
DecodeDate(Now, dYear, dMonth, dDay);
DecodeTime(Now, dHour, dMinite, dSecond, dMSecond);
dCurrent := dYear * 10000 + dMonth * 100 + dDay;
if dCurrent > dTargetDate then
Form1.Close
else if dCurrent = dTargetDate then
begin
dCurrent := dHour * 10000 + dMinite * 100 + dSecond;
if dCurrent > dTargetTime then
Form1.Close;
end;
end;
上一个：Delphi 7怎么编译
下一个：跪求delphi语句解释
- 更多Delphi疑问解答：
- 用delphi做这个功能怎么做？
- 问delphi 中将Tquery控件查找到的记录数值写入某一edit中代码如何写？
- 有谁知道怎样在Delphi 7中显示代码的行数啊？或者有什么方法能够快速找到已知某一行数的代码啊！
- 关于delphi 操作EXcel的问题
- delphi ，sql，， 数据库 ，求助~~~~ 急~~~~~
- delphi变体记录问题
- delphi能实现反射吗？
- 谁会安装delphi 7 控件啊！会的话，请帮我在线安装一下? QQ785799795
- 在Delphi的Image控件上画移动的图片
- delphi 月份递增的循环查询
- 宝兰公司的开发工具delphi和c++builder现在的年代还流行吗？
- 我是沈阳做delphi开发的，想要集成短信功能到客户管理系统中，麻烦各位达人？
- 我是南昌做delphi开发的，想要集成短信功能到PMS中，分享下吧！
- delphi 取消窗体的最小化怎么弄
- 我是深圳做delphi开发的，想要集成短信功能到知识管理系统中，求达人指点！