Delphi для начинающих. Урок 3. Подсчет символов в тексте

1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт)

2. Для компонента Label1 свойство Caption пишем: Введите текст

3. Для компонента Label2 свойство Caption пишем: В тексте

4. Для компонента Edit1 свойство Text делаем пустым

5. Для компонента Button1 свойство Caption пишем: Вычислить

6. Должно получиться как на рис.1

Рис. 1 - Главное окно

7. Для Button1 пишем код:

procedure TForm1.Button1Click(Sender: TObject);

var n: integer;

s: string;

begin

n:=length(Edit1.Text);

label2.Caption:='В тексте ';

if n>20 then n:=n mod 10;

case n of

1:s:=' символ';

2..4:s:=' символа';

0,5..20:s:=' символов';

end;

label2.Caption:=label2.Caption+IntToStr(Length(Edit1.Text))+S;

end;

8. Теперь все сохраняем и запускаем кнопкой Run или жмем F9. Вводим любой текст в текстовое поле и нажимаем кнопку "Вычислить", затем смотрим результат, сколько в Вашем тексте символов (см. рис.2).

Пробелы тоже считаются как символы.

Рис. 2 - Результат подсчета символов в слове "Два"

Ставьте лайк и подписывайтесь, дальше будет еще интереснее.

Что у тебя получилось пиши в комментариях. Всем до скорой встречи!

Предыдущий урок