一个很简单的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
    try
      strtodate(self.Edit1.Text );
    except
       showmessage('date error');
    end;
end;运行时为什么我在Edit1中输入什么它都是提示我'date error'?

Answer 1

你的text里的内容符合日期格式么

Answer 2

输入下面的
2004-7-14
你可以先用 edit1.text:=dateTostr(date);

Answer 3

Thanks SmallMaker ,原来是日期格式的问题