:)

← →
:) (2003-10-10 12:22) [0]

Плиз, как узнать кол-во цифр в String-ой переменной?

← →
Семен Сорокин (2003-10-10 12:26) [1]

это почти нереально, как минимум 10 страниц кода.

← →
clickmaker (2003-10-10 12:27) [2]

Каких? Римских, арабских ?

← →
ORMADA (2003-10-10 12:28) [3]

блин ты пиши конкретно что ты хочешь сделать а то что ты написал пиши что у тя есть (пример)

← →
:) (2003-10-10 12:29) [4]

цифры арабские

← →
ORMADA (2003-10-10 12:31) [5]

приерное можно так
x:=0;
for i:=1 to length(str)do begin
try
begin
strtoint(str[I]);
inc(x);
end;
except;
end;
end;
или типа того надеюсь идею ты уловил...

← →
NickBat (2003-10-10 12:31) [6]

Так же как и в жизни.
Пробежаться по строке слева направо (для энтузиастов справа-налево) и подсчитать количество символов совпадающих по начертанию с цифрами, коих, как известно, 10. :)))

← →
Брат (2003-10-10 12:32) [7]

kol:=0;
for i:=1 to length(stroka) do
if (ord(stroka[i])>#41) and (ord(stroka[i])<#49) then
inc(kol);

Наверное что типа такого, тока я не помню кодов цифр...

← →
KSergey (2003-10-10 12:33) [8]

Не, ну это так просто не расскажешь. Тут точно сказал Сорокин - как минимум страниц 10 убористого текста. У вас почерк как: мелкий или крупный?

А если серьезно - киньте сюда хоть какой-нибудь свой набросок, пусть не рабочий. Хоть какие-то свои мысли.
Т.к. отвечать на такой вопрос совсем нахаляву, да еще не будучи уверенным, что задающий его сам хоть немного не подумал - жаба давит. Вопрос элементарный.

← →
Verg (2003-10-10 12:36) [9]

> :) (10.10.03 12:29) [4]

Ну, тогда десять.

const
FirstArabianDigit = "0";
LastArabianDigit = "9";

ArabianDigits : set of char = [FirstArabinaDigit..LastArabianDigit];

if Stringvariable[CurrentPositionInStringVarable] in digits then CountOfArabianDigitsInStringVariable := CountOfArabianDigitsInStringVariable+1;

и тд. и т.п..............

← →
Anatoly Podgoretsky (2003-10-10 12:37) [10]

clickmaker © (10.10.03 12:27) [2]
Бех разницы какие, все равно надо сканировать

if S[i] in digits then counter:=counter+1

Вопрос то не про число

← →
ORMADA (2003-10-10 12:38) [11]

Согласен с KSergey ©
Т.к. отвечать на такой вопрос совсем нахаляву, да еще не будучи уверенным, что задающий его сам хоть немного не подумал бессмысленно

← →
Брат (2003-10-10 12:38) [12]

> CountOfArabianDigitsInStringVariable

нада сократить название - что типа COADISV -так попроще :)))

← →
KSergey (2003-10-10 12:40) [13]

> [12] Брат © (10.10.03 12:38)
> нада сократить название - что типа COADISV -так попроще

Ага, еще скомпиленый код получится эффективнее. ;)

← →
Verg (2003-10-10 12:42) [14]

> Брат © (10.10.03 12:38) [12]
>
> > CountOfArabianDigitsInStringVariable
>
> нада сократить название - что типа COADISV -так попроще
> :)))

Зато скушно...

← →
Брат (2003-10-10 12:48) [15]

:) Найти похожие ветки