Не считает количество символов

[DeeCee]

Не работает почему-то. Выдает значение Р = 0

procedure TForm1.Button1Click(Sender: TObject);
const
s=' ';
var
st:string[50];
p,i:integer;
begin
st:=Form1.Edit1.Text;
p:=0;
For i:=1 to length(st) do
if st[i]=s then
if st[i+1]='b' then
p:=p+1;
Form1.Edit2.Text:=IntToStr(p);
begin

end;

end;
end.

[Карась]

Что должно считать?

Я так понял счётчик будет накручиваться только когда встретится последовательность пробела и буквы b. Тобишь ' b'.

Надо без пробелов посчитать?

Примерно так:

z := 0;
for i := 1 to Lenght(S) do if S[i] <> ' ' then z := z + 1;

z - кол-во символов.

[DeeCee]

Выдает ошибку на Length

[Карась]

: |

Мог и сам догадаться что у меня Length с ошибкой было написанно..
Вот практический пример определения символов исключая пробелы.

program Project1;

{$APPTYPE CONSOLE}

var S: string;
    i, z: integer;
begin
Readln(S);
z := 0;
for i := 1 to Length(S) do if S[i] <> ' ' then z := z + 1;
Writeln (z); Readln;
end.

[DeeCee]

все равно то же самое

[Yurk@]

Сообщение от DeeCee

Не работает почему-то. Выдает значение Р = 0

procedure TForm1.Button1Click(Sender: TObject);
const
s=' ';
var
st:string[50];
p,i:integer;
begin
st:=Form1.Edit1.Text;
p:=0;
For i:=1 to length(st) do
if st[i]=s then
if st[i+1]='b' then
p:=p+1;
Form1.Edit2.Text:=IntToStr(p);
begin

end;

end;
end.

Я не знаю что вы делаете - но у меня ваш код работает нормально и все верно считает! р-увеличивается когда встречается комбинация "пробел"+"b".

[Карась]

все равно то же самое

Мне даже стало интересно...

Привиде полный код
Укажи в какой строке ошибка
И укажи что пишет компилятор.

АДД: что делает код автора мы выяснили во втором посте ; )

[DeeCee]

Мне нужно было что бы он считал количество символов...

[DeeCee]

const
s= ' ';
var
st:string[50];
p,i:integer;
begin
st:=Form1.Edit1.Text;
p:=0;
For i:=1 to length(st) do
p:=p+1;
Form1.Edit2.Text:=IntToStr(p);
begin

end;

end;
end.

сам справился, всем спаcибо

[DeeCee]

нужно было просто не писать ту гадость про st после for