Диалоговые окна InputBox, ShowMessage. 10 класс

HYPERLINK "http://seregazar.wix.com/lazarus" \l "!c1j25" \t "_self" Урок №5 Диалоговые окна InputBox, ShowMessage.
Во всех программах используются различные исходные данные.
Для осуществления ввoда данных мoжнo иcпoльзoвать кoмпoнент TЕdit, для вывoда данных – компoнент Labеl.
Существует дрyгoй способ ввoда и вывoда данныx – иcпoльзoваниe вcтрoeнных диалоговых окон InзutBох, ShоwМеssаgе. Эти диалоговые окна не устанавливаются программистoм на фopмy во время разработки. Операторы их активации нужно вставлять в программный код.
Более подробно остановимся на втором способе.
Ввод данных.
Функция InputBox() выводит на экран диалоговое окно, в котором можно ввести данные.
Аргументами этой функции являются три строки, а значением функции – строка введенная пользователем.
В общем виде строка программного кода с использованием функции InputBox выглядит так:
Переменная := InputBox('Заголовок', 'Подсказка', 'Значение по умолчанию');
где:
Переменная – переменная строкового типа, значение которой должно быть получено от пользователя;
Заголовок – текст заголовка окна;
Подсказка – текст поясняющего сообщения;
Значение по умолчанию – текст, который будет находиться в поле ввода, когда окно появиться на экране.
Например,
n := InputBox('Ввод числа', 'Введите число:', ' ');
Результат показан на рисунке:

Если пользователь щелкнет по кнопке ОК, то значением функции станет строка, введенная пользователем в текстовое поле. Если пользователь щелкнет по кнопке Cancel, то значением функции станет строка «Значение по умолчанию».
Значение функции InputBox всегда строкового типа (String), поэтому в случае, если нужно ввести число, то введенная строка должна быть преобразована в число при помощи соответствующей функции преобразования.
В качестве примера возьмем задачу пересчета длины из дюймов в сантиметры.
Ввод исходных данных из окна ввода и последующее преобразование данных может выглядеть так:
Stroka:= InputBox(‘Дюймы-сантиметры’,’Введите длину в сантиметрах:’,’0‘);
Chislo:=StrToFloat(Stroka);
Можно преобразовать в одну строку:
Chislo:= StrToFloat(InputBox(‘Дюймы-сантиметры’,’Введите длину в сантиметрах:’,’0‘));
 
Вывод данных.
Для вывода результата используется процедура ShowMessage(). Она выводит на экран диалоговое окно с текстом и командной кнопкой OK.
Общий вид инструкции вызова процедуры ShowMessage:
ShowMessage(‘Сообщение’);
где Сообщение – текст, который будет выведен в окне.
Например, для того чтобы вывести результат в программе пересчета веса из фунтов в килограммы, можно использовать следующую строку кода:
ShowMessage(‘Длина в сантиметрах: ‘+ FloatToStr(Chislo*2.54));Результат:

Задание.
Поместить на форму две кнопки: Ввод данных и Выход. Пользователь должен ввести фамилию, имя и возраст. Для ввода данных использовать функцию InputBox. По окончании ввода анкетные данные вывести в поле вывода (компонент Label).