关于日期的判断 不是吧'02-6-15'才过期吧,如下if strtodatetime('02-6-15')<strtodatetime('02-6-16') thenshowmessage('过期'); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 edit1.text:=datetostr(now);if strtodate(edit1.text)>='2002/6/17' thenshowmessage('过期'); if (Now > TDateTime(2002,6,16)) ShowMessage('过期了'); TWebbrowser内存泄漏问题如何解决! 问一个关于个人所得税的问题~~~~ DELPHI怎么能控制ADSL自动拨号、自动断开?急! 怎样用IntallShiled打包用DBE ADO的问题 在delphi7.0中TQuickRep对象怎么找,在线等待!!!!! 请问李维的书在内地有买的吗,多少钱 如何用delphi删除文件? 有哪些方法可以阻止对一个文件夹里的某一文件进行删除或修改操作? 福建省电信局的上网计费系统是这里人开发的吗?请教一个计费问题,请进 寻求一个控件! 谁知道公历农历的转换?
if strtodate(edit1.text)>='2002/6/17' then
showmessage('过期');
ShowMessage('过期了');