Проверка правильного ввода даты

@flogiston · Регистрация: 20.10.2011

Author24 — интернет-сервис помощи студентам

База данных FireBird
В Edit ввожу дату. Тип данных VarChar. То есть дата хранится как текст. Хочу сделать проверку на правильность ввода даты. У Edit на событие OnExit кинул:

Delphi

procedure TFormEditOdject.Edit4Exit(Sender: TObject);
var dt : TDateTime;
begin
if length(Edit4.Text)>0 then
begin
   if not TryStrToDate(Edit4.Text, dt) then
   begin
      ShowMessage('Неверный формат даты рождения.' +#13  + 'Повторите попытку ввода.');
      Edit4.SetFocus;
   end;
end;
end;

Работает как положено. Проблема в том, что я хочу чтобы он дату типа 10.10.10 считал неверной, а 10.10.2010 верной. Приведенный код и одну и другую дату считает корректной. Короче, как сделать чтоб год могли вводить только четырехзначный, а двухзначный откидывал? Кто знает, помогите пожалуйста

Добавлено через 3 часа 23 минуты
Вопрос решен. Тему можно удалять

@a11iance · 04.03.2015, 13:03

Delphi

procedure TFormEditOdject.Edit4Exit(Sender: TObject);
var dt : TDateTime;
begin
if length(Edit4.Text)>0 then
begin
   if not TryStrToDate(Edit4.Text, dt) or Length(Edit4.Text)<>10 then
   begin
      ShowMessage('Неверный формат даты рождения.' +#13  + 'Повторите попытку ввода.');
      Edit4.SetFocus;
   end;
end;
end;

@студент1235 · 04.03.2015, 18:18

а не проще через DateTimePicker дату вводить?

@flogiston · 04.03.2015, 19:56 **[ТС]**

Что бы через DateTimePicker ввести пустую (нулевую) дату приходится извращаться. Поэтому использовал обычный Edit

@студент1235 74 / 48 / 27 Регистрация: 25.03.2014 Сообщений: 357 Записей в блоге: 1
	04.03.2015, 18:18	3
	а не проще через DateTimePicker дату вводить? 0

@flogiston 0 / 0 / 1 Регистрация: 20.10.2011 Сообщений: 47
	04.03.2015, 19:56 [ТС]	4
	Что бы через DateTimePicker ввести пустую (нулевую) дату приходится извращаться. Поэтому использовал обычный Edit 0