IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Считывание строки
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской

Репутация: -  0  +


Из файла читается строка, помещается в переменную help, строка содержит цифры, например, 010000. Задача моей пдпрограммы считывать только четные символы, то есть в результате считывания из переменной help в переменную gerc4, должно записатся число 100, но как я ни старался, подпрограмма почсему-то напрочь не хочет видеть последний ноль из числа 010000, поэтому в переменную gerc4 вместо 100 записывается 10. Помогите пожалуйста решить эту проблему. Код подпрограммы привожу: счетчик символов i = 1
Код

                              begin
                                 while help[i]<>' ' do
                                     begin
                                         if prt=1 then
                                            begin
                                               gerc4:=gerc4+(help[i]);
                                                i:=i+1;
                                               prt:=prt-1;
                                            end;
                                                else                                                                                                                                                         i:=i+1;prt:=prt+1;                
                                    end;
                              Edit35.Text:=gerc4;
                              end;


Сообщение отредактировано: AlexSCH -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Сразу бросается в глаза, что после else два оператора надо заключить в операторные скобки (begin - end).


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Кроме этого - это вообще не должно компилироваться, из-за ";" перед Else blum.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской

Репутация: -  0  +


Большое спасибо, заработало
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Все проще гораздо:
  while help[i]<>' ' do begin

if not odd(i) then gerc4 := gerc4+(help[i]);
inc(i);

end;
Edit35.Text := gerc4;
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 19.09.2017 22:30
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"