Код
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;
Полная версия: Считывание строки
Из файла читается строка, помещается в переменную 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;
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;
Сразу бросается в глаза, что после else два оператора надо заключить в операторные скобки (begin - end).
Кроме этого - это вообще не должно компилироваться, из-за ";" перед Else 
Большое спасибо, заработало
Все проще гораздо:
while help[i]<>' ' do begin
if not odd(i) then gerc4 := gerc4+(help[i]);
inc(i);
end;
Edit35.Text := gerc4;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.