Лабораторная работа: Знакомство с компонентами RadioGroup и CheckBox обработка строк типа String в среде Delphi

if not (Key in ['0'..'9', '+', '-']) then Key:=#0;

end;

procedure TForm1. Edit2KeyPress (Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9', '+', '-']) then Key:=#0;

end; end.

Задание 3. Создайте приложение, предлагающее пользователю ввести строку, определяющее количество символов в ней и выводящее результат, согласуя окончание слова «символов» с числом символов.

Решение:

1. Создайте папку «Количество символов» и сохраните в ней проект «simvol».

2. Разместите на форме компоненты: Edit1, Label1,2, Button1, как показано на рис. 3.2. Задайте значения свойств Label1. Caption – «Введите текст», Label2. Caption – «В тексте», Button1. Caption – «Вычислить». Удалите текст Edit1 из соответствующего компонента.

Рис. 3.2 Пример формы проекта «Количество символов»

3. Для вычисления количества символов во введенной строке и вывода результата создайте процедуру обработчика события щелчка мышью на кнопке «Вычислить».

4. Введите в текст процедуры следующее описание переменных:

Var

N: integer;

S: string;

5. Введите текст тела процедуры обработки события:

Begin

N := Length ( Edit 1. Text ); {определить число символов}

Label 2. 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 ;