Delphi中，如何验证在edit中输入的日期的格式是否正确？如何把edit中输入的日期格式化？(30分)

C

CPU风扇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #1

如题

 

W

windwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #2

为什么不用TDateTimePicker?

 

P

pluto_l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #3

格式化用formatdatetime。

 

Z

zhhc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #4

procedure TForm1.Edit1Exit(Sender: TObject);
var
d:TDate;
begin
Try
d:=StrToDate(Edit1.Text);
Edit1.Text:=DateToStr(d);
except
showmessage('error');
Edit1.SetFocus;
end;

end;

 

田

田伯光

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #5

TDateTimePicker好用
不过如果你一定要用TEdit那么可以这么写
TEdit.Exit
Begin
Try
StrToDate( Edit.Text );
Edit.Text :=FormatDateTime('yyyymmdd',StrToDate( Edit.Text ));
Except
ShowMessage('输入错误!');
End;
End;

 

C

CPU风扇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #6

谢谢

 

S

SevenOrient

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #7

用TMaskEdit吧。
属性：EditMask
1.!9999/99/99;1;
2.Character fro Blanks:" " 空格