eg: str := '1998-9-8';
看有什么函数可以判断是否为日期类型。象vb里面有IsDate函数,,
delphi 就不知道了。
看有什么函数可以判断是否为日期类型。象vb里面有IsDate函数,,
delphi 就不知道了。
解决方案 »
- ProjectProject raised exception class EInvalidPointer 'Invalid pointer opertion'
- delphi程序运行老是要登陆的问题,会的请进
- 我access已经做了几个查询,我想做个触发使他们按顺序执行,然后我只要取最终结果就可以了,我是新手啊,迷茫中,有哪位能详细的指点下吗
- 老婆生日
- 挂勾中的一个问题
- Delphi如何实现文件关联
- 如何显示adoquery检索出来的记录数
- 各位大蝦,我作.hlp類型的幫助文件,在編譯用*.rtf文件時候,經常出現以下的錯誤,不知道
- 关于打印状态的问题(在线等待啊)
- qrCompositereport控件ColumnHeader显示不出来,救救我???
- 求用Tquery操作数据库的代码,急等
- Query访问SQL数据库时,在程序中如何指定用户名和密码啊?
//如果字符从第0位开始
result:=false;
if (str[4]='-') and (str[7]='-') then result:=true;
end;
begin
try
StrToDateTime(str);
Result := True;
except
Result := False;
end;
end;
返回值是boolean,详细的去看帮助吧!
经过测试 它不能捕获 错误时间,即输入错误时间,程序报错,并非返回一个 false值只能捕获正确时间,时间格式对的话就返回True;
ShowMessage('不是一个时间')
else
ShowMessage('是一个时间');
function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas用法:///////Begin TryStrToDateTime
procedure TForm1.Button1Click(Sender: TObject);
var
vDateTime: TDateTime;
begin
CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime);
Edit2.Text := DateTimeToStr(vDateTime);
end;
///////End TryStrToDateTime这个的作用更明显了,字符非日期时间表达时返回False并且Value将输出为0 .
难道 那个函数只是对 格式进行了判断,没有对数据进行判断么.?
谢谢大家了.结贴了.