Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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"&#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 ©   (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
9-1156069429
VolanD666
2006-08-20 14:23
2007.07.08
Статичные тени...


15-1181228346
oldman
2007-06-07 18:59
2007.07.08
Стоит ли менять работу?


4-1170255120
tytus
2007-01-31 17:52
2007.07.08
Как получить доступ к контролам другого окна?


15-1181293492
REA
2007-06-08 13:04
2007.07.08
type string


15-1181182756
Slider007
2007-06-07 06:19
2007.07.08
С днем рождения ! 7 июня 2007 четверг





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский