+7 771 559 26 76
sguruapp@gmail.com
Меню
×
Мобильные
приложения
Курсы по
программированию
Цены
на услуги
Наши
контакты
Guru
music
Блоги
Новости
Отзывы
Подсчёт количества пробелов в строке - 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;
Возврат к списку
обучись профессии будущего
Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.
Позвоните мне