Скачать: CL | DM;

Проверка вхождения цифр   Найти похожие ветки 

← →
Uran ©   (2003-06-03 13:36) [0]

Извиняюсь за глупый вопрос, но подскажите пожалуйста , как проверить в string переменной содержит ли она только цифры.
Заранее благодарен! :)

---

← →
WarLord ©   (2003-06-03 13:40) [1]

S: string;
for i:=1 to Length(S) do
if StrToIntDef(S[i],-1)=-1 then
ShowMessage("На позиции "+IntToStr(i)+" не цифра!");

---

← →
Palladin ©   (2003-06-03 13:43) [2]

сума сойти
val + F1

---

← →
Uran ©   (2003-06-03 13:45) [3]

Спасибо большое!:))

---

← →
Зинец Виктор ©   (2003-06-03 14:32) [4]

может и неправильно, но я часто проверяю так:

try
StrToInt (edit.text);
except
raise Exception.Create ("Сколько раз говорить - тут вводят ТОЛЬКО цифры");
end;

%-)

---

← →
Song ©   (2003-06-03 14:36) [5]

2Зинец Виктор © (03.06.03 14:32)
А если там будет 30 цифирь? :)

---

← →
Leo-pro   (2003-06-03 14:40) [6]

for i:=1 to length(s) do
if not(s[i] in ["0".."9"]) then showmassage("Вводи цифры");

---

← →
Palladin ©   (2003-06-03 14:46) [7]

а вот про 30 цифр это уже интересно...
тогда ессно

for i:=1 to Length(S) do
if (byte(s[i])<48) or (byte(s[i])>57) then ShowMessage("На позиции "+IntToStr(i)+" не цифра!");

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c