|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Можно в OnKeyPress поместить такой код:
Код:
case Key of '0'..'9',#8 :; else ShowMessage('Сообщение об ошибке'); Key:=#0; end; И эта проблема уже не актуальна: Цитата:
Но эта всё-же имеет место: Цитата:
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#17
|
||||
|
||||
Тут же у меня написано так:
c символом "[" code] try StrToInt(Строка) //В строке записано число except //Ошибка end; "- нет /code]" - нет и всё смотрится как без code , но когда пишу ответ, то всё смотрится нормально. P.S.: просто прояснял ситуацию. |
#18
|
||||
|
||||
А не проще
Код:
TryStrToInt(const S: string; out Value: Integer): Boolean PS: функция из модуля SysUtils |
#19
|
|||
|
|||
кстати есть процедура Val(str,int,error)
вроде так, которая заноист в error любое число, не ноль, если ошибка. и не надо никаких try except'ов. |
#20
|
|||
|
|||
Всем спасибо!
Спасибо всем, кто откликнулся!
Справился с этим вопросом с помощью Val. |