我想判断一个edit.text里面输入的是不是日期类型的数据，delphi里面有没有相关的函数？谢谢

那自己写几句
try
  StrToDateTime(edit1.text);
except
  Showmessage('不是日期');
  ..其它处理..
end;
可以写在edit的onExit事件或其它地方

先将edittext转换为日期类型,如不成功说明不是日期类型

D6以上可以
if TryStrToDateTime(edit1.text, nDate) then
showmessage("是日期");uses
dateUtils;

TryStrToDateTime(edit1.text, nDate) ? 没有这个函数吧

用try except结构是不行的，刚试过

我写的一个函数，请参考：
function CheckDateTimeValid(aString: string): boolean;
begin
  aString := Copy(aString,1,16);
  if aString = '' then
    begin
      result := true;
      exit;
    end;
  if (trim(aString) = '/  /     :')  or
     (trim(aString) = '-  -     :')  then
    begin
      result := true;
      exit;
    end;
  if (Length(aString) <> 16) or
     ((Pos(' ',aString) <> 0) and (Pos(' ',aString) <> 11)) then
  begin
    Result := false;
    InformationMessageBox('无效');
    exit;
  end;
  try
    strtodatetime(aString);
    result := true;
  except
    InformationMessageBox('无效');
    result := false;
  end;
end;

try except 在编译的时候不管用，但在exe文件中起作用了，刚才是我弄错了，谢谢大家的帮助，也谢谢 jinjintalk(西门吹雪)。

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DateUtils, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  nDate: TDateTime;
begin
  if TryStrToDateTime(Edit1.Text, nDate) then
    ShowMessage('IS DateTime');
end;end.

记得
uses
dateUtils;

trystrtodatetime 也可以，谢谢你 g961681(技术庸人(新的开始|新的挑战))

TryStrToDateTime(edit1.text, nDate)====CSDN 小助手 V2.0 2005年10月16日发布====
CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
界面：http://blog.csdn.net/Qqwwee_Com/archive/2005/10/16/504620.aspx
下载：http://szlawbook.com/csdnv2/csdnv2.rar为神六喝彩，向所有科技工作者致敬！
拒绝日货。

procedure TForm2.RzEdit10KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9',#8])) and (key <>':') and (key<>'-') and (key<>' ')then key:=#0;
end;procedure TForm2.RzEdit10Enter(Sender: TObject);
begin
if RzBitBtn4.Tag=0 then MessageBox(Handle,'ÒªÔö¼ÓÐÅÏ¢ÇëÏÈ²éÑ¯ºóÔÙµã»÷Ôö¼Ó°´Å¥Ôö¼ÓÐÅÏ¢','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION)
  else TRzEdit(Sender).Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',Now);
end;procedure TForm2.RzEdit10Exit(Sender: TObject);
var
  i,temnum:Integer;
  str,substr:string;
begin
  if RzBitBtn4.Tag<>0 then
  begin
  str:=RzEdit10.Text;
  if length(str)=19 then
  begin
  for i:=1 to length(str) do
  begin
    case i of
      1..4,6..7,9..10,12..13,15..16,18..19:
        if (str[i]<'0') or (str[i]>'9') then
        begin
          MessageBox(Handle,'ÄúÊäÈëµÄÈÕÆÚÊ±¼ä¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈç:2005-10-10 10:10:10)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
          RzEdit10.SetFocus;RzEdit10.SelectAll;
          Exit;
        end;
      5,8:
        if str[i]<>'-' then
        begin
          MessageBox(Handle,'ÄúÊäÈëµÄÈÕÆÚÊ±¼ä¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈç:2005-10-10 10:10:10)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
          RzEdit10.SetFocus;RzEdit10.SelectAll;
          Exit;
        end;
      11:
        if str[i]<>' ' then
        begin
          MessageBox(Handle,'ÄúÊäÈëµÄÈÕÆÚÊ±¼ä¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈç:2005-10-10 10:10:10)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
          RzEdit10.SetFocus;RzEdit10.SelectAll;
          Exit;
        end;
      14,17:
        if str[i]<>':' then
        begin
          MessageBox(Handle,'ÄúÊäÈëµÄÈÕÆÚÊ±¼ä¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈç:2005-10-10 10:10:10)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
          RzEdit10.SetFocus;RzEdit10.SelectAll;
          Exit;
        end;
      end;
      end;  substr:=Copy(str,6,2);
  temnum:=StrToInt(substr);
  if (temnum<1) or (temnum>12) then
  begin
    MessageBox(Handle,'ÄúÊäÈëµÄÔÂ·Ý¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈçÔÂ·Ý·¶Î§:01-12)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
    RzEdit10.SetFocus;RzEdit10.SelectAll;
    Exit;
  end;  substr:=Copy(str,9,2);
  temnum:=StrToInt(substr);
  if (temnum<1) or (temnum>31) then
  begin
    MessageBox(Handle,'ÄúÊäÈëµÄÈÕ¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈçÈÕ·¶Î§:01-31)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
    RzEdit10.SetFocus;RzEdit10.SelectAll;
    Exit;
  end;  substr:=Copy(str,12,2);
  temnum:=StrToInt(substr);
  if temnum>23 then
  begin
    MessageBox(Handle,'ÄúÊäÈëµÄÐ¡Ê±¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈçÐ¡Ê±·¶Î§:00-23)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
    RzEdit10.SetFocus;RzEdit10.SelectAll;
    Exit;
  end;  substr:=Copy(str,15,2);
  temnum:=StrToInt(substr);
  if temnum>59 then
  begin
    MessageBox(Handle,'ÄúÊäÈëµÄ·ÖÖÓ¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈç·ÖÖÓ·¶Î§:00-59)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
    RzEdit10.SetFocus;RzEdit10.SelectAll;
    Exit;
  end;  substr:=Copy(str,18,2);
  temnum:=StrToInt(substr);
  if temnum>59 then
  begin
    MessageBox(Handle,'ÄúÊäÈëµÄÃë¸ñÊ½²»ÕýÈ·,ÇëÖØÐÂÊäÈë(ÀýÈçÃë·¶Î§:00-59)','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
    RzEdit10.SetFocus;RzEdit10.SelectAll;
    Exit;
  end;
  end else
  begin
    MessageBox(Handle,'ÇëÊäÈëÍêÕûµÄÈÕÆÚÊ±¼äÐÅÏ¢','ÌáÊ¾ÐÅÏ¢',MB_OK+MB_ICONINFORMATION);
    RzEdit10.SetFocus;RzEdit10.SelectAll;
    Exit;
  end;
  end;
这是我在开发软件一部分代码：大致给你说下思路：
1、KEYPRESS事件，可以输入的值
2、ENTER   取系统事件，也可以修改
3、EXIT   判断

调试易

我想判断一个edit.text里面输入的是不是日期类型的数据，delphi里面有没有相关的函数？谢谢

解决方案 »