DELPHI/Часто задаваемые вопросы и ответы на них/Компоненты



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Автоматический формат даты в компоненте Edit

Автоматический формат даты в компоненте Edit
Маугли подходит к компьютеру:
- Мы с тобой одного формата, ты и я!
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    try
      StrToDate(Edit1.Text);
    except
      Edit1.SetFocus;
      MessageBeep(0);
      raise Exception.Create('"' + Edit1.Text
        + '" - некорректная дата');
    end {try};
    Edit1.Text := DateToStr(StrToDate(Edit1.Text));
  end {if};
end;
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru