Окно ввода – это стандартное диалоговое окно, которое появляется на экране в результате вызова функции InputBox. В общем виде оператор ввода данных с использованием этой функции записывают так:
имя_переменной:=InputBox(заголовок_окна, подсказка, значение_переменной);
где
· заголовок_окна – строка, определяющая название окна;
· подсказка – текст поясняющего сообщения;
· значение_переменной – строка, которая будет находиться в поле ввода при появлении окна на экране;
· имя_переменной — переменная строкового типа, которой будет присвоено значение_переменной из поля ввода;
Фрагмент программы
var S:string;
begin
S:=InputBox('ЗАГОЛОВОК ОКНА',
'Подсказка: введите исходные данные',
'Данное значение');
end;
У пользователя есть возможность изменять текст в поле ввода.
Щелчок по кнопке ОКприведет к тому, что в переменную, указанную слева от оператора присваивания будет занесена строка, находящаяся в поле ввода.
В данном случае в переменную S будет записана строка 'Данное значение'. Щелчок по кнопке Cancel закроет окно ввода.
Учитывая, что функция InputBox возвращает строковое значение, при вводе числовых данных применяют функции преобразования типов:
var
S:string; gradus,radian:real;
begin
S:=InputBox('Ввод данных','Введите величину угла в радианах','0,000');
gradus:=StrToFloat(S);
radian:=gradus*pi/180;
MessageDlg('Величина угла в градусах'
+FloatToStr(radian),MtInformation,[mbOk],0);
end;
