Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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/

---

← →
Leonid Troyanovsky ©   (2005-03-13 17:49) [11]

> Victor08 ©   (13.03.05 16:19)  

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


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

--
Regards, LVT.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.06 c