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

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

Код ANSI


Silica ©   (2006-04-29 17:35:00) 

Скажите как проврить, что в поле Edit введено только число. Я в книге нашла код ANSI, где говориться, что, к примеру, русские буквы кодируются значениями 192-233 и 224-255. Подскажите как описать это в программе.
Мне нужно создать условие:

IF EDIT1.TEXT = (ВОТ ТУТ НЕ ЗНАЮ ЧТО НАПИСАТЬ) THEN
SHOWMESSAGE('Введенный символ не является числом!');


Галинка   (2006-04-29 19:18:00) [1]

Можно еще проверку на вхождение в строку нецифровых символов (LastDelimiter). Можно поставить в обработчик Edit1.OnExit.


Anatoly Podgoretsky   (2006-04-29 18:30:00) [2]

Silica ©   (29.04.06 17:35)  
Тебя обманули, это OEM


Silica   (2006-04-29 17:41:00) [3]

Большое спасибо!!! Теперь буду знать! :)


Virgo_Style   (2006-04-29 17:38:00) [4]

var ValueInEdit:Integer;

if not TryStrToInt(Edit1.Text, ValueInEdit) then


Virgo_Style   (2006-04-29 17:38:00) [5]

Virgo_Style ©   (29.04.06 17:38) [1]

если не Integer - аналогично


Наверх

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