Корректность ввода даты

← →
Miss © (2002-06-11 11:29) [0]

Здравствуйте, уважаемые мастера! Как при минимальном размере кода проверить корректность введенной даты в Edit,DBEdit типа DD.MM.YY ?

← →
UserL (2002-06-11 11:32) [1]

Try
StrToDate(Edit1.Text)
Except
ShowMessage("Неверно введена дата")
End;

← →
fnatali © (2002-06-11 11:40) [2]

Использовать MaskEdit

← →
Miss © (2002-06-14 07:28) [3]

Использовать MaskEdit нельзя! Так как в него обязательно должно быть введено какое-либо значение, а у меня это поле не всегда должно заполняться сразу.

← →
Bsl (2002-06-14 08:02) [4]

Если использовать StrToDate, то будет проверена корректность даты в формате даты языка, принятого в Windows, т.о. правильным может быть: dd.mm.yy а может mm/dd/yy.
Так что мне кажется, что лучше MsakEdit, но с возможностью ввода пустого значения, а можно самому проверять (onExit).

← →
Miss © (2002-06-14 08:23) [5]

Формат языка dd.mm.yy это точно, но каким образом MaskEdit может оставаться пустым?

← →
Song © (2002-06-14 08:36) [6]

IsValidDate()

← →
Miss © (2002-06-14 10:57) [7]

Если проверять в обработчике события OnValidate, то нужно проверять не превышают ли первые 2 числа 31, точка ли третий символ, не превышают ли 12 следующие 2 числа и по два ли символа м/д точками

← →
Song © (2002-06-14 10:59) [8]

Придумай :))

Даже при отключении встроенного отладчика Delphi, механизм глобальной обработки исключений не дает перехватить обработку ошибки
Try
StrToDate(Edit1.Text)
Except
ShowMessage("Неверно введена дата")
End;

Корректность ввода даты Найти похожие ветки