Подсчёт количества пробелов в строке - 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;

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

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

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

GURU

Новости

Наши услуги

Курс “iOS разработчик - Swift”
Курс “Python для начинающих”
Курс “Delphi”
Видео уроки по программированию
Разработка iOS приложений
Разработка ПО под Windows
Цены на услуги

Связаться с нами
sguruapp@gmail.com
+7 771 559 26 76 WhatsApp, Viber, Telegram
Остались вопросы? Закажите обратный звонок, мы Вам перезвоним в любую точку мира

Правила

Политика конфиденциальности

Дополнительно

Блог iOS разработчик - Swift
Блог Python
Блог Delphi