проверить на интежер

← →
Infinityx93 © (2007-06-08 18:32) [0]

подскажите плззз!!! как проверить строку нет ли там лишних символов, кроме цифр.
спасибо

← →
Правильный Вася (2007-06-08 18:35) [1]

TryStrToInt

> кроме цифр
а минус? а научный формат с E

← →
Infinityx93 © (2007-06-08 18:47) [2]

> а минус? а научный формат с E

нафиг минус и научный формат
спасибо

← →
Infinityx93 © (2007-06-08 18:58) [3]

в trystrtoint второй параметр интежер туда заносятся тока исправные значения или скажем если было 10. то он занесет 10 или ничего не занесет????

← →
Anatoly Podgoretsky © (2007-06-08 22:30) [4]

А ничего это сколько?
И по первому сообщению, возьмем такую строку 1111111111111111111111111111111111111111111111 как видим ничего кроме цифр.

← →
alien1769@ukr.net (2007-06-09 00:22) [5]

> возьмем такую строку 1111111111111111111111111111111111111111111111
> как видим ничего кроме цифр.

Автор, попробуй переведи в двоичную систему ! %)

← →
Германн © (2007-06-09 01:00) [6]

> Infinityx93 © (08.06.07 18:58) [3]
>
> в trystrtoint второй параметр интежер туда заносятся тока
> исправные значения или скажем если было 10. то он занесет
> 10 или ничего не занесет????
>

А самому проверить очень сложно?

А вообще-то лучше пользовать саму процедуру Val, чем обёртки над ней. Имхо.

← →
Германн © (2007-06-09 01:09) [7]

> Правильный Вася (08.06.07 18:35) [1]
...
> а научный формат с E

Е в строковом представлении целого числа? Это что-то новенькое в науке :)

← →
{RASkov} © (2007-06-09 01:45) [8]

> Е ... целого числа?
Для Hex нормально :) как раз только и в строковом ) ABCD..F туда же ) Ща начнеться... ;)

← →
Германн © (2007-06-09 01:57) [9]

> {RASkov} © (09.06.07 01:45) [8]
>
> > Е ... целого числа?
> Для Hex нормально :) как раз только и в строковом ) ABCD.
> .F туда же ) Ща начнеться... ;)
>

"Ща" не начнётся. Все спят.
Полуночников тут, увы, мало. Да и не сезон :-)

← →
Sapersky (2007-06-09 14:14) [10]

function IsNumber(Const s : String) : Boolean;
Var n : Integer;
begin
Result := False;
For n:=1 to Length(s) do
If not (s[n] in ["0".."9"]) then Exit;
Result := True;
end;

← →
Kolan © (2007-06-09 14:32) [11]

> If not (s[n] in ["0"&#133"9"]) then Exit;

А «-»?

← →
Anatoly Podgoretsky © (2007-06-09 15:40) [12]

> Е в строковом представлении целого числа? Это что-то новенькое
> в науке :)

Науке не противоречит, почему бы и нет

← →
Sapersky (2007-06-09 16:08) [13]

А «-»?

Так автор же сказал что "нафиг минус". Но можно и добавить:
["-","0"…"9"]

← →
Однокамушкин (2007-06-09 22:11) [14]

> Sapersky (09.06.07 16:08) [13]
> А «-»?
>
> Так автор же сказал что "нафиг минус". Но можно и добавить:
>
> ["-","0"…"9"]

И тогда выражение "--1--4-2--" будет признано допустимым целым числом...

← →
Sapersky (2007-06-10 10:25) [15]

Да, это я не учёл.

function IsNumber(Const s : String) : Boolean;
Var n, nLen : Integer;
begin
Result := False;
nLen := Length(s);
If (nLen = 0) then Exit;
If (s[1] in ["0".."9"]) or ( (s[1] = "-") and (nLen > 1) ) then begin
For n:=2 to nLen do
If not (s[n] in ["0".."9"]) then Exit;
Result := True;
end;
end;

← →
Правильный Вася (2007-06-10 17:02) [16]

> Е в строковом представлении целого числа? Это что-то новенькое
> в науке :)

а чем тебе 5Е4 не Integer? обычное 5*10^4

← →
Однокамушкин (2007-06-10 18:34) [17]

> Правильный Вася (10.06.07 17:02) [16]
> а чем тебе 5Е4 не Integer? обычное 5*10^4

А теперь попытайтесь убедить в этом компилятор Delphi... :)

← →
Anatoly Podgoretsky © (2007-06-10 18:41) [18]

> Однокамушкин (10.06.2007 18:34:17) [17]

А это уже ошибка компилятора.

← →
Infinityx93 © (2007-06-10 19:31) [19]

так давайте его перепишем))). Спасибо всем!!!

← →
G_M_S © (2007-06-11 09:54) [20]

function IsValidInteger(src:String):boolean;
var
i:Integer;
begin
try
i := StrToInt(src);
result := true;
except
result := false;
end;
end;

← →
Ega23 © (2007-06-11 10:33) [21]

> Sapersky (10.06.07 10:25) [15]
> Да, это я не учёл.
>
> function IsNumber(Const s : String) : Boolean;
> Var n, nLen : Integer;
> begin
> Result := False;
> nLen := Length(s);
> If (nLen = 0) then Exit;
> If (s[1] in ["0".."9"]) or ( (s[1] = "-") and (nLen > 1)
> ) then begin
> For n:=2 to nLen do
> If not (s[n] in ["0".."9"]) then Exit;
> Result := True;
> end;
> end;

Т.е. $FF не пройдёт?

← →
Sapersky (2007-06-11 11:28) [22]

function IsNumber(Const s : String) : Boolean;
Var n, nLen : Integer;
cSet : set of Char;
begin
nLen := Length(s);
If (nLen = 0) then begin Result := False; Exit; end;

cSet := ["0".."9"];
If (s[1] = "$") then begin
cSet := cSet + ["A".."F", "a".."f"]; Result := (nLen > 1);
end else
If (s[1] = "-") then Result := (nLen > 1) else
Result := (s[1] in cSet);

If (not Result) then Exit;

For n:=2 to nLen do
If not (s[n] in cSet) then begin Result := False; Exit; end;
end;

Сейчас кто-нибудь затребует дробные числа...

← →
G_M_S © (2007-06-11 11:35) [23]

> Т.е. $FF не пройдёт?

$FF - шестнадцатиричное представление. нафик его учитывать?

← →
Углук © (2007-06-11 12:51) [24]

StrToIntDef?

> Сейчас кто-нибудь затребует дробные числа...

Если уж писать серьезно - то пусть так же понимает "четыреста сорок четыре", например ;)))

> G_M_S © (11.06.07 13:25) [25]
>
>
> > Сейчас кто-нибудь затребует дробные числа...
>
> Если уж писать серьезно - то пусть так же понимает "четыреста
> сорок четыре", например ;)))

а почему только на русском? ))

> а почему только на русском? ))

Дельное замечание: надо добавить в ТЗ подержку национальных языков!

Ага, и штобы поддержка римских цифр была.

и курсов валют

Круто!
ИИ курит :)

И штоб "ниаменьшее целое число, для записи которого на русском языке требуется не менее 50 слов" тоже понимало :)

Пусть еще и математические загадки разгадывает.

> Anatoly Podgoretsky © (11.06.07 18:49) [32]
>
> Пусть еще и математические загадки разгадывает.
>

Проверить будет не на чём. MBO позабыл про пятницы :(

> Германн (11.06.2007 18:56:33) [33]

Он не про пятницы позабыл, а позабыл передать эстафету.

проверить на интежер Найти похожие ветки