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

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

Исключения


Rico ©   (2005-06-09 02:53:00) 

По исключениям знаю очень мало, поэтому есть ламерский вопрос
На форме есть MaskEdit(палитра компонентов Additional) у него есть св-во EditMask - маска ввода То, что в него вводится, заноситься в соотв поле базы данных
У меня маска ввода имеет вид _ _. _ _ Т.е. две цифры до запятой и две после
Если заполнить не все цифры и попробовать перейти на следующий компонент вылетает ошибка EDBEditError Как бы ее перехватить, чтобы высветить окошко, типа "ошибка ввода" и переместить фокус обратно в MaskEdit для ввода правильного значения

Плиз хелп!


kot andrei   (2005-06-09 10:40:00) [1]

>>Если заполнить не все цифры и попробовать перейти на следующий
>>компонент вылетает ошибка EDBEditError

Внимательно почитай о создании масок ввода;

>>Как бы ее перехватить, чтобы высветить окошко, типа "ошибка
>>ввода" и переместить фокус обратно в MaskEdit для ввода
>>правильного значения

насколько я понял при правильном вводе должна получиться строка типа: 99,99 ? Если да то пробуй ее переделать в Integer (strtoint) и если не преобразуется пиши: Ошибка ввода.
try
except
end
в помощь...
P.s это первое что пришло в голову, но не обязательно правильное.


КаПиБаРа   (2005-06-09 07:13:00) [2]

F1 - TApplication.OnException


Наверх

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