Подсчёт количества пробелов в строке - Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
d, i: integer;

begin
s := Edit1.Text;
i := 0;

For d:=1 to Length(s) do
begin
If s[d] = ' ' then i := i+1;

end;
ShowMessage(IntToStr(i));
end;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.