一个菜鸟问题，如何判断一个字符串是否日期？(20分)

  • 主题发起人 主题发起人 xiecc
  • 开始时间 开始时间
提供一个思路，代码你自己写……

1。日期的格式是否符合；
2。日期的范围是否正确；
3。其实和日期一样的字符串也不一定是日期，可能就是普通字符串；
4。我再想想……
 


if flag=true then
......var flag:boolean;

try
strtodate(edit1.text);
flag:=true;
except
flag:=false;
end;
 
procedure TloginForm1.Button1Click(Sender: TObject);
var
flag:boolean;
begin
flag:=false;
try
strtodate(edit1.text);
flag:=true;
except
on econverterror do
flag:=false;
end;
if flag=true then
memo1.Lines.add('true');
end;


except
on econverterror do
flag:=false
有点问题

 
TRY的方法是最方便的，而且通用。

liuchuanbo，为什么不写成一个函数？哈哈
 
不好意思
 
这段代码我在Delphi里运行要出错，
单独的exe文件没问题，不知是什么原因？
 
xiecc:
Because you run it in delphi.so IDE will throw a exception.
But if run it in your exe,it will not
 
同意guo_qpeter
 
Delphi 开发环境会捕捉到这个异常，
脱离开发环境就没有问题了
 
var
date:tdatetime;

try
date:=strtodate('xxxx');
except
on do
end;
 
try在IDE环境下是不能调试的要到单独运行的地方测试，用try的方法不错：）
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

不
Delphi中设置条件断点 - 不得闲
回复
0
查看
804
不得闲
不
不
ISO8583报文协议（转） - 不得闲
回复
0
查看
848
不得闲
不
X
如何在unidac 中执行一次查询获得多个数据集？ - xalion
回复
0
查看
944
xalion
X
X
如何在unidac 中执行一次查询获得多个数据集？ - xalion
回复
0
查看
1K
xalion
X
S
[日积月累]-2018-6-24:早期 Delphi 版本 Base64 解码需要注意的一点小问题
回复
0
查看
766
swish
S
后退
顶部