Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Маска целых чисел

Victor08 © (2005-03-13 16:19:00)
Добрый день.
Понимаю что вопрос простой но всёже.
Каким образом проверять вводимое значение на его принадлежность к целым числам,не использую стандартный компонент TMaskEdit.

Leonid Troyanovsky (2005-03-13 17:49:00) [1]

> Victor08 © (13.03.05 16:19)

> Каким образом проверять вводимое значение на его принадлежность
> к целым числам,не использую стандартный компонент TMaskEdit.

http://groups.google.com/groups?selm=1553063689%40p2.f175.n5020.z2.ftn

--
Regards, LVT.

_1 (2005-03-13 17:24:00) [2]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1095963566&n=12

_1 (2005-03-13 17:23:00) [3]
ES_NUMBER

vers (2005-03-13 16:58:00) [4]
Знаю, что в Windows XP есть объект навроде TEdit, но при попытке ввода в него нецифрового символа, он выдает подсказку с надписью "Сюда можно ввести только цифру". Только как его внедрить в свою программу не знаю.

Юрий Зотов (2005-03-13 16:41:00) [5]
> Victor08 © (13.03.05 16:23) [2]

Val
TryStrToInt
TryStrToInt64

Ji (2005-03-13 16:36:00) [6]
Исправляюсь:
if Round(a) = a then

Ji (2005-03-13 16:30:00) [7]
Сори, протупил

Ozone (2005-03-13 16:25:00) [8]

> [2] Victor08 © (13.03.05 16:23)

Проверяй строку на содержание "ненужных" символов.

Ji (2005-03-13 16:24:00) [9]
if (a mod 1) = 0 then целое else не целое
где а - проверяемое число

Victor08 (2005-03-13 16:23:00) [10]
Так я тоже умею :),а без исключений не как нельзя?

Ozone (2005-03-13 16:22:00) [11]
Как вариант:

try Number := StrToInt(YourEdit.Text); except { <обрабатываем> } end;

Наверх

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