Проверка вхождения цифр

← →
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("Вводи цифры");

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

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

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