I Iknow Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-29 #2 var DatetimeVar:TDatetime; try DatetimeVar:=strtodatetime(edit1.text); except showmessage(edit1.text+' is not a valid datetime string'); edit1.setfocus; exit; end;
var DatetimeVar:TDatetime; try DatetimeVar:=strtodatetime(edit1.text); except showmessage(edit1.text+' is not a valid datetime string'); edit1.setfocus; exit; end;
K Kang Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-29 #3 Function IsDateTime(const AString:String):boolean; begin try StringToDateTime(AString); Result:=true; except Result:=false; end; end;
Function IsDateTime(const AString:String):boolean; begin try StringToDateTime(AString); Result:=true; except Result:=false; end; end;
K Kill Night Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-29 #4 可以在输入的时候,加以限制,试试TMaskEdit来限制输入;
E e.com Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-29 #5 如果是FIELD，则在FIELD的ONGETTEXT事件中检查： try StrToDateTime(trim(InPutString)) except ShowMessage('','',) end;
如果是FIELD，则在FIELD的ONGETTEXT事件中检查： try StrToDateTime(trim(InPutString)) except ShowMessage('','',) end;
B BaKuBaKu Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-29 #6 看看 unit SysUtils 的 ScanDate 和 ScanTime 的实现，其实很清楚的。 StrToDateTime 主要就是调用这两个函数。 From: BaKuBaKu
郝 郝好 Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-31 #8 我觉得如果单从时间输入上说用MastEdit比较好， 如果这个问题复杂化，比如说输入的是MONEY（比如要￥9999.99） 或者是其他有限制条件的，那我觉得用try...except不错。 但是，try..except是要到离开输入框才检查，也可以在EDIT的OnPress事件中 写这样的代码： if not (key in ['0'..'9',#13,#8,'.']) then key := #0; 限制输入的字符。
我觉得如果单从时间输入上说用MastEdit比较好， 如果这个问题复杂化，比如说输入的是MONEY（比如要￥9999.99） 或者是其他有限制条件的，那我觉得用try...except不错。 但是，try..except是要到离开输入框才检查，也可以在EDIT的OnPress事件中 写这样的代码： if not (key in ['0'..'9',#13,#8,'.']) then key := #0; 限制输入的字符。
