Советы по Delphi
Автоматический формат даты в компоненте Edit
| PROCEDURE TForm1.Edit1Exit(Sender: TObject); BEGIN IF Edit1.Text<>'' THEN BEGINTRYStrToDate(Edit1.Text);EXCEPTEdit1.SetFocus;MessageBeep(0);raise Exception.Create('"'+Edit1.Text+'" - некорректная дата');END{try};Edit1.Text:=DateToStr(StrToDate(Edit1.Text));END{if};END; |
