function IsDate(const s: string): boolean;
begin
try
StrToDate(s);
Result := True;
except
Result := False;
end;
end;
begin
try
StrToDate(s);
Result := True;
except
Result := False;
end;
end;
解决方案 »
- 三层数据库的问题。在线等
- 关于mscomm控件的问题,,急
- 如何限制MDI窗体客户区?
- 请教处理数据时的进度显示是怎么实现的?
- 请问那有 TreeView 和 CheckListBox 和为一体的控件下载??
- 安全第一~~~~~~~~~~~~~~~~~~高手请进!
- FastReport中如何将DBGrid的内容保存成Excel文件?
- 如何使自己程序的窗体再任何程序的窗体上面
- 错了,错了,我是在网上下了一个DELPHI开发的应用程序,是用SERVER2000作为数据库的,我想执行应用程序,请问如何配置?
- 请问如何打印canvas上的内容?包括文字、线条等???
- 两个form………………………………
- 急急急!!!
strtodate()
except
err
function isdate(source:string;):boolean;
begin
try
strtodate(source);
result:=true;
except
result:=false;
end;
end;