помогите плз найти и исправить ошибку в задаче на строки. Опции

[MiH@N]

помогите плз найти и исправить ошибку в задаче на строки. условие такое:Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.

procedure TForm1.Button1Click(Sender: TObject);
var s : String;   i : integer;
begin
s:=edit1.text;
edit1.Text:='';
for i=1 to length(s) do
 if (s[i]=' b') then  k:=k+1;
end;
edit2.Text:='k';

после to выдаёт [Error] Unit1.pas(37): For loop control variable must be simple local variable подскажите что к чему?

[MiH@N]

я в исправленном коде это исправил. в 3 посте.

Добавлено через 8 мин.

хм.. а как это у тебя один символ строки s s[и] может равняться двум символам ' b' (пробел и b) ?

вообщет этим действием я хотел чтоб цикл проверял строку и находил в ней слова начинающиеся с b.
а как правильно будет?

нашол в FAQ похожую задачу но чёт неполучается правильно интерпретировать и перевести её в Delphi.

Код

function Count(Const s, w: String; start: Byte): Byte;
const
  limits = ['.', ',', ';', '!', '?', ' '];
var
  p: Byte;
begin
  p := Pos(w, Copy(s, start, 255));
  if (start > length(s)) or (p = 0) then Count := 0
   else if (((start + p - 2) = 0) or (s[ start + p - 2] in limits))
    and (((start + p + length(w) - 2) = Length(s)) or (s[start + p + length(w) - 1] in limits))
     then Count := 1 + Count(s, w, start + p + length(w) - 2) else Count := 0 + Count(s, w, start + p + length(w) - 2);
end;

Сообщение отредактировано: MiH@N - 18.06.2008 19:06