"Советы по Delphi. Версия 1.0.6" - читать интересную книгу автора (Озеров Валентин)

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

PROCEDURE TForm1.Edit1Exit(Sender: TObject);

BEGIN

 IF Edit1.Textlt;gt;'' THEN BEGIN

  TRY

    StrToDate(Edit1.Text);

   EXCEPT

    Edit1.SetFocus;

    MessageBeep(0);

    raise Exception.Create('"'+Edit1.Text + 'amp;quot – некорректная дата');

   END {try};

   Edit1.Text:= DateToStr(StrToDate(Edit1.Text));

 END{if};

END;