var S:string;
i,count:integer;
begin
S:=Edit1.Text;
count:=0;
i:=1;
while i<=length(S) do
if (S[i]=' ') and(S[i+1]<>' ') then
begin
inc(count);
inc(i)
end
else
inc(i,2);
Label1.Caption:=inttostr(count);
Когда ввожу не длинную строку считает без ошибак но когда увеличиваю получяю ошибочный результат. Подскожите в чём ошибка и как правильней вывести проценты?
Сообщение отредактировано: status -