我的表單裡有一欄位是要輸入日期 所以我在存入資料庫前想要判斷一下這個edit1.txt的值 是否為正確的日期格式? Delphi有像vb的isDate()這種函數可用嗎? 就是將變數丟入isDate(edit1.text) 就能回傳true或false的函數!! 小弟不才,麻煩各位前輩指導一下,謝謝!!

------
corn

最簡單的就是用 try - except :

try
  StrToDate(Edit1.text); // 或 Table1.OrderDate.Value := StrToDate(Edit1.text); 等等
  showMessage('日期正確');
except
  showMessage('日期不正確，請再輸入');
  Edit1.SetFocus; // focus 回 Edit1
end;

發表人 - Justmade 於 2003/05/07 15:41:19

自己寫一個吧!!    

function isDate(sdate: string): Boolean;
begin
  try
    StrToDate(sdate);
    Result := true;
  except
    Result := false;
  end;
end;

感謝二位前輩的指導, 二位的方法都可行......非常感謝!! 但只能給一次分呢......真傷腦筋, 所以我先給timhuang 前輩囉, 版主請多多見諒!!

------
corn

为你写的测试是否是日期型的函数！！！！    你将这个函数加到你的程序中就可以了：    function isdate(const str:string):boolean; begin try case VarType(StrToDate(str)) of varDate:result:=true; else result:=false; end; except result:=false; end; end;    //调用方式 procedure TForm1.Button1Click(Sender: TObject); begin if isdate(trim(edit1.text)) then showmessage('ok') else showmessage('fail');    end;    风花雪月 e梦情缘

------
风花雪月 e梦情缘

引言: 感謝二位前輩的指導, 二位的方法都可行......非常感謝!! 但只能給一次分呢......真傷腦筋, 所以我先給timhuang 前輩囉, 版主請多多見諒!!

沒關係，timhuang 兄快拿小金牌了，只差一分了，加油。