Считывание строки Опции

[AlexSCH]

Из файла читается строка, помещается в переменную 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 - 19.08.2006 18:07