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

← →
Victor08 © (2005-03-13 16:19) [0]

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

← →
Ozone © (2005-03-13 16:22) [1]

Как вариант:

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

← →
Victor08 © (2005-03-13 16:23) [2]

Так я тоже умею :),а без исключений не как нельзя?

← →
Ji © (2005-03-13 16:24) [3]

if (a mod 1) = 0 then целое else не целое
где а - проверяемое число

← →
Ozone © (2005-03-13 16:25) [4]

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

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

← →
Ji © (2005-03-13 16:30) [5]

Сори, протупил

← →
Ji © (2005-03-13 16:36) [6]

Исправляюсь:
if Round(a) = a then

← →
Юрий Зотов © (2005-03-13 16:41) [7]

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

Val
TryStrToInt
TryStrToInt64

← →
vers © (2005-03-13 16:58) [8]

Знаю, что в Windows XP есть объект навроде TEdit, но при попытке ввода в него нецифрового символа, он выдает подсказку с надписью "Сюда можно ввести только цифру". Только как его внедрить в свою программу не знаю.

← →
_1 (2005-03-13 17:23) [9]

ES_NUMBER

← →
_1 (2005-03-13 17:24) [10]

http://delphimaster.net/view/5-1095963566/

> Victor08 © (13.03.05 16:19)

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

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

--
Regards, LVT.

Маска целых чисел Найти похожие ветки