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

Урок №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).