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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Автоматический формат даты в компоненте 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;

Источник - Проект "Delphi World" © Выпуск 2002 - 2004
Автор проекта: Акулов Николай

| кухонная мойка от производителя | Компико Омск - сравнение цен | В ТД Паритет есть отличная возможность купить кабель для пожарной сигнализации. |