Проверить является ли строка числом?

← →
Ezorcist (2007-09-13 19:37) [0]

var S:string; i:integer; begin try i:=strtoint(s); showmessage("Eto 4islo"); except showmessage("Eto NE chislo!"); end;

Что-то подсказывает мне что это неверное .... так?

← →
Palladin © (2007-09-13 19:39) [1]

1
If TryStrToInt(s) Then
showmessage("Eto 4islo") else
showmessage("Eto NE chislo!");
2
Var
n,c:Integer;
Begin
val(s,

← →
Palladin © (2007-09-13 19:40) [2]

блин... кошмар нажал здесь Ctrl-Space... жестоко....

1
If TryStrToInt(s) Then
showmessage("Eto 4islo") else
showmessage("Eto NE chislo!");
2
Var
n,c:Integer;

val(s,n,c);
if c=0 Then showmessage("Eto 4islo") else
showmessage("Eto NE chislo!");

и еще куча более сложных способов

← →
Palladin © (2007-09-13 21:15) [3]

ну *шаркая ножкой*... и в TryStrToInt ошибся немножко параметрами...

← →
{RASkov} © (2007-09-13 21:19) [4]

> [0] Ezorcist (13.09.07 19:37)
> Проверить является ли строка числом

А вот это -
104867865845637829821048575839020294859403
как должно определится - число или нет?
А вот это -
10486786584563782982104857583902029485940310486786584563782982104857583902029485 94031048678658456378298210485758390202948594031048678658456378298210485758390202 94859403104867865845637829821048575839020294859403104867865845637829821048575839 02029485940310486786584563782982104857583902029485940310486786584563782982104857 58390202948594031048678658456378298210485758390202948594031048678658456378298210 48575839020294859403104867865845637829821048575839020294859403104867865845637829 821048575839020294859403
?

← →
Efir © (2007-09-13 22:08) [5]

> {RASkov} © (13.09.07 21:19) [4]

А здесь придётся смотреть все символы, и определять циферка или буковка.

← →
{RASkov} © (2007-09-13 22:12) [6]

> [5] Efir © (13.09.07 22:08)
> А здесь придётся смотреть все символы, и определять циферка или буковка.

Поэтому я и задал этот вопрос автору...

← →
Ezorcist (2007-09-13 22:13) [7]

мне для мелких надо было, вроде работает, Palladin пасиб )

var
i : Integer;
begin
Result := True;
for i := 1 to Length (S) do
if not (S[i] in "0" .. "9") then
begin
Result := False;
break;
end;

> [7] Ezorcist (13.09.07 22:13)

Твоя идея варианта тоже имеет право на жизнь,
А Palladin предложил только один вариант, так как первый в "глубине души" это и есть второй вариант :)

> [8] S@shka © (13.09.07 22:20)

Ему "крупняк" не нужен :)

> мне для мелких надо было © [7] Ezorcist

:)

> {RASkov} © (13.09.07 22:23) [9]
>
> А Palladin предложил только один вариант, так как первый
> в "глубине души" это и есть второй вариант :)
>

Точнее первый есть частный случай второго.
Так же как и вариант [8]
:)

Проверить является ли строка числом? Найти похожие ветки