Delphi-Help

Главная Статьи Окно редактирования (Edit) Автоматический формат даты в компоненте Edit

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

Оцените материал
(0 голосов)


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

Авторизация



Счетчики