Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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

 
viper_cd   (2003-11-04 23:22) [0]

К переменной типа string присваеваем значение,ну скажем "1000110" (только цифры 1 или 0), так вот вопрос как взять каждую отдельную цифру из строки (скажем мне необходио посчитать сумму этих цифр)?Пожалуста помогите,если можно то кусок кода!


 
Regis ©   (2003-11-04 23:26) [1]

К строке можно обратиться как к массиву т.е.
если s - строка, то s[1] даст тебе 1й символ этой строки и т.д.


 
viper_cd   (2003-11-04 23:28) [2]

а кусоче кода мона


 
Eagle Owl ©   (2003-11-04 23:47) [3]

Ну, сумму можно расчитать примерно так:

accum, i: Integer;
s: String;
........
for i := 1 to Length(s) do
Inc(accum, StrToInt(s[i]));

........


 
Tumcoat ©   (2003-11-05 04:58) [4]

Или так:

x: integer;
for i:=1 to Length(s) do
x:=x+StrToInt(Copy(s,i,1));


 
Думкин ©   (2003-11-05 05:28) [5]

Или еще так:

> accum, i: Integer;
> s: String;
> ........

accum :=0;
> for i := 1 to Length(s) do
> Inc(accum, StrToInt(s[i]));



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
3-40946
axx
2003-10-17 14:36
2003.11.13
Редактирование части полей DBGrid a


4-42296
diMAN
2003-09-09 11:52
2003.11.13
Хук на консольное окно


14-42030
Vintel
2003-10-16 11:04
2003.11.13
Почему-то не пашет!!!


1-41630
Yanis
2003-10-26 11:17
2003.11.13
Повернуть компонент на любой угол???


3-40953
AtoL
2003-10-17 12:20
2003.11.13
Прогресс выполнения запроса.