Ввод данных
Наиболее просто программа может получить исходные данные из окна ввода или из поля редактирования (компонент Edit).
Ввод из окна ввода
Окно ввода – это стандартное диалоговое окно, которое появляется на экране в результате вызова функции inputBox. Значение функции inputBox – строка, которую ввел пользователь.
В общем виде инструкция ввода данных с использованием функции inputBox выглядит так:
Переменная: = InputBox(Заголовок, Подсказка, Значение);
Где:
- Переменная – переменная строкового типа, значение которой должно быть получено от пользователя;
- Заголовок – текст заголовка окна ввода;
- Подсказка – текст поясняющего сообщения;
- Значение – текст, который будет находиться в поле ввода, когда окно ввода появится на экране.
Ниже в качестве примера приведена инструкция, используя которую можно получить исходные данные для программы пересчета веса из фунтов в килограммы. Окно ввода, соответствующее этой инструкции, приведено на рис. 1.5.
s: = InputBox('Фунты-килограммы','Введите вес в фунтах','0');
Рис. 1.5. Пример окна ввода
Если во время работы программы пользователь введет строку и щелкнет на кнопке ОК, то значением функции inputBox будет введенная строка. Если будет сделан щелчок на кнопке Cancel, то значением функции будет строка, переданная функции в качестве параметра значение.
Следует еще раз обратить внимание на то, что значение функции inputBox строкового (string) типа. Поэтому если программе надо получить число, то введенная строка должна быть преобразована в число при помощи соответствующей функции преобразования. Например, фрагмент программы пересчета веса из фунтов в килограммы, обеспечивающий ввод исходных данных из окна ввода, может выглядеть так:
s: = InputBox('Фунты-килограммы','Введите вес в фунтах','');
funt: = StrToFloat(s);
Ввод из поля редактирования
Поле редактирования – это компонент Edit. Ввод данных из поля редактирования осуществляется обращением к свойству Text.
Рис. 1.6. Компонент Edit1 используется для ввода данных
На рис. 1.6 приведен вид диалогового окна программы пересчета веса из фунтов в килограммы. Компонент Editl используется для ввода исходных данных. Инструкция ввода данных в этом случае будет иметь вид:
Funt: = StrToFloat(Editl.Text);