Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];
Внизпроверить на интежер Найти похожие ветки
← →
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"…"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 © (2007-06-11 13:25) [25]
> Сейчас кто-нибудь затребует дробные числа...
Если уж писать серьезно - то пусть так же понимает "четыреста сорок четыре", например ;)))
← →
Gydvin © (2007-06-11 14:25) [26]
> G_M_S © (11.06.07 13:25) [25]
>
>
> > Сейчас кто-нибудь затребует дробные числа...
>
> Если уж писать серьезно - то пусть так же понимает "четыреста
> сорок четыре", например ;)))
а почему только на русском? ))
← →
G_M_S © (2007-06-11 14:39) [27]
> а почему только на русском? ))
Дельное замечание: надо добавить в ТЗ подержку национальных языков!
← →
Ega23 © (2007-06-11 14:44) [28]Ага, и штобы поддержка римских цифр была.
← →
Virgo_Style © (2007-06-11 14:46) [29]и курсов валют
← →
{RASkov} © (2007-06-11 15:43) [30]Круто!
ИИ курит :)
← →
TUser © (2007-06-11 17:34) [31]И штоб "ниаменьшее целое число, для записи которого на русском языке требуется не менее 50 слов" тоже понимало :)
← →
Anatoly Podgoretsky © (2007-06-11 18:49) [32]Пусть еще и математические загадки разгадывает.
← →
Германн © (2007-06-11 18:56) [33]
> Anatoly Podgoretsky © (11.06.07 18:49) [32]
>
> Пусть еще и математические загадки разгадывает.
>
Проверить будет не на чём. MBO позабыл про пятницы :(
← →
Anatoly Podgoretsky © (2007-06-11 19:11) [34]> Германн (11.06.2007 18:56:33) [33]
Он не про пятницы позабыл, а позабыл передать эстафету.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.042 c