![]()
|
|||||||
procedure TForm1.Btn1Click(Sender: TObject); ⇐ ПредыдущаяСтр 2 из 2 procedure TForm1. Btn1Click(Sender: TObject); var N: integer; //последняя цифра S: string; //изменяемое слово " символ" begin N: =Length(Edt1. Text); //определить число символов Lbl2. Caption: ='В тексте '; if N> 20 then N: =N mod 10; //выделить последнюю цифру case N of //в зависимости от последней цифры 1: S: =' символ'; //изменять окончание слова 2.. 4: S: =' символа'; 0, 5.. 20: S: =' символов'; end; Lbl2. Caption: =Label2. Caption+ IntToStr(Length(Edt1. Text))+ S; //вывести результат end;
5. Сохраните файлы проекта и программного модуля, откомпилируйте и запустите программу на выполнение. 6. Проверьте работу приложения, задавая текст с разным количеством символов и проверяя правильность вывода результатов работы.
|
|||||||
|