請問 Dataaccess VCL DBEDIT 如何攔截系統內定資料型態錯誤 例如 : DBEDIT is tdatetime type 輸入'a003/03/14' 時,要出現自己設計的訊息,而不要出現系統內定資料型態錯誤? MY USE PG: procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char); var srr:tdatetime; begin if key=#13 then begin //showmessage('oh,scuess'); //edit2.Text:='a'; try showmessage('3s'); srr:=dbedit1.Field.Value; showmessage('4s'); if srr > strtodate('2100/12/31') then begin showmessage('1s'); raise EConvertError.Create('輸入日期型態錯誤'); showmessage('2s'); end; except on e:EConvertError do begin ShowMessage(E.ClassName E.Message); raise; end; end; end; end; 謝謝大家,請各位先進指教.

參考一下

 try
   ShortDateFormat := 'yyyy/mm/dd'; //將DBEDIT1的內容日期格式化
   strtodate(DBEDIT1.text);  //檢查日期是否合法
 except
   raise Exception.Create('日期錯誤 請重新輸入');
 end; 

天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

謝謝兩位先進 ,兩種方式都可以,因結案只可選擇一人,很報歉 wsy_Kevin