Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Корректность ввода даты [D5, D6, Win95/98]


Miss ©   (2002-06-11 11:29:00) 

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


Voldemar   (2002-06-17 13:41:00) [1]

>Miss © (11.06.02 11:29)
RXLib - TDateEdit


Miss   (2002-06-17 12:05:00) [2]

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


Miss   (2002-06-14 11:26:00) [3]

Придумай :))


Song   (2002-06-14 10:59:00) [4]

2Miss © (14.06.02 10:57)
Может ещё аппаратно-программый комплекс с видиокамерой придумать ? :)))


Miss   (2002-06-14 10:57:00) [5]

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


Song   (2002-06-14 08:36:00) [6]

IsValidDate()


Miss   (2002-06-14 08:23:00) [7]

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


Bsl   (2002-06-14 08:02:00) [8]

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


Miss   (2002-06-14 07:28:00) [9]

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


fnatali   (2002-06-11 11:40:00) [10]

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


UserL   (2002-06-11 11:32:00) [11]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо