Создадим приложение. Пользователю предоставляется возможность ввести свой адрес и телефон (причем формат для ввода предоставлен), после чего формируется предложение «Мой адрес…телефон…» и повторяется в мемо-поле указанное в специальном окне количество раз.
Проанализируйте представленные шаблоны и укажите их для соответствующих полей ввода.
Для ввода номера телефона: 00-00-00;1;x
Для ввода адреса: ул.>A<aaaaaaaaaa д.099 кв.099;1;_
Для ввода количества повторений: 9;1;
Опишите процедуру на кнопку «Ok».
Procedure TForm1.BitBtn1Click(Sender:TObject);
Var
f: string;
k, i: integer;
Begin
f:='Мой адрес '+maskedit1.text+' телефон '+maskedit2.text;
k:=strtoint (maskedit3.text) ;//переводим строку, введенную в maskedit3 в целочисленный тип
for i:=1 to k do
memo1.Lines.Add(f);
end;
Обработайте кнопку «Clear».
