Советы по Delphi

         

Автоматический формат даты в компоненте Edit


PROCEDURE TForm1.Edit1Exit(Sender: TObject);
BEGIN
IF Edit1.Text<>'' THEN BEGINTRYStrToDate(Edit1.Text);EXCEPTEdit1.SetFocus;MessageBeep(0);raise Exception.Create('&quot'+Edit1.Text+'&quot - некорректная дата');END{try};Edit1.Text:=DateToStr(StrToDate(Edit1.Text));END{if};END;
[000015]


Содержание раздела