procedure TForm1.Button1Click(Sender: TObject);после to выдаёт [Error] Unit1.pas(37): For loop control variable must be simple local variable подскажите что к чему?
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';
помогите плз найти и исправить ошибку в задаче на строки. |