Ввод данных

Программа может получить исходные данные из окна ввода, поля ввода диалогового окна или файла.

Ввод данных из окна ввода осуществляется вызовом функции InputBox, возвращаемым значением которой является строка, введенная пользовате­лем. В общем виде инструкция для ввода данных с использованием функ­ции InputBox выглядит так:

Переменная: =InputBox (Заголовок, Подсказка, Значение);

где Переменная— имя переменной строкового типа, значение которой должно быть получено из окна ввода;

Заголовок — текст заголовка окна ввода;

Подсказка — текст поясняющего сообщения;

Значение — текст, находящийся в поле ввода в момент появления окна вво­да на экране.

Например, команда для ввода фамилии может иметь следующий вид:

s:=InputBox('Ввод фамилии', 'Введите фамилию', 'Иванов');

Выполняется эта инструкция следующим образом. На экран выводится окно ввода. После того как в поле ввода будет введена (набрана на клавиатуре) фамилия и выполнен щелчок на одной из командных кнопок окна ввода, ОК или Cancel, переменная строкового типа s получит значение: введенную строку, если щелчок был на кнопке ОК, или, если щелчок был на кнопке Cancel, предопределенное значение, указанное при вызове функции InputBox в качестве ее аргумента ('Иванов').

Внимание. Значение функции InputBox стро­кового (string) типа. Поэтому, если программе надо получить значение чи­слового типа, то введенная строка (изображение числа) должна быть преоб­разована в число при помощи соответствующей функции преобразования (см далее).

Например, если в программе переменная a вещественного (real) типа, то инструкции, обеспечивающие ввод ее значения, могут выглядеть так;

s:=InputBox('Ввод числа', 'Введите число', ' 0');

a:=StrToFloat(s);

Ввод, редактирование и вывод информации может выполняться через специальные поля. В Delphi наиболее часто используется для этих целей компонент Edit (однострочный редактор). Ввод данных осуществляется обращением к свойству Text этого поля.

a:=Edit1.Text;

Здесь a переменная строкового типа (var a : String).

Функции преобразования типа.

Функции преобразования типа предназначены для преобразования типов величин, например символа в целое число, вещественного числа в целое и т. д.

Функции преобразования типов в Delphi наиболее часто используются в инструкци­ях, обеспечивающих ввод и вывод информации. Например, для того чтобы вывести на экран, в поле вывода диалогового окна, значение переменной типа real, надо сначала получить изображение числа, являющегося значе­нием данной переменной. Это можно сделать при помощи функции FloatToStr, которая возвращает строковое представление выражения дейст­вительного типа, указанного при вызове функции.

В первом приближении свойство Caption поля метки можно рассматривать как переменную символьного типа. Поэтому, для того чтобы можно было в это поле вывести значения числового типа, исходное значение предвари­тельно должно быть преобразовано в строку символов, например, при по­мощи функции FloatToStr или IntToStr.

IntToStr (Value: Integer ): String – преобразование значения целочисленного выражения Value в строку;

StrToInt (const S: String) : Integer – преобразование строки S в целое число;

FloatToStr (Value : Extended) : String - преобразование значения вещественного выражения Value в строку;

StrToFloat (const S: String) : Extended - преобразование строки S в вещественное число;

DateToStr(Date: TDateTime) : String – преобразование значения даты в выражении Date в строку;

TimeToStr (Time: TDateTime) : String - преобразование значения времени в выражении Time в строку;

StrToDateTime (const S: String) : TDateTime - преобразование строки S в дату и время;

StrToDate (const S: String) : TDateTime – преобразование строки S в дату;

StrToTime (const S: String) : TDateTime - преобразование строки S во время.

Для работы с датой используется тип TDateTime и функции Date( ), Time( ), которые возвращают текущее значение даты и времени.

Событие нажатия клавиши на клавиатуре.

Визуальные компоненты способны генерировать и обрабатывать большое количество событий различных типов. При каждом нажатии алфавитно – цифровых клавиш генерируется событие OnKeyPress типа TKeyPressEvent. Оно обрабатывается, когда требуется реакция на нажатие одной клавиши. Описывается следующим образом:

Type TKeyPressEvent = procedure (Sender: TObject; var Key: Char);

Параметр Key содержит код ASCII нажатой клавиши. Если параметру Key задать значение ноль (#0), то это соответствует отмене нажатия клавиши.

Задание.

1. Создать программу определения кода нажатой клавиши. Использовать компонент Edit и его событие OnKeyPress. Определить код клавиши «Y».

2. Создать программу определения символа по заданному коду. Для ввода кода использовать компонент Edit. Определить код символа ©.

3. Составить программу пересчета валюты. Интерфейс программы представлен на рисунке 2. Вывод информации о Авторе и Времени осуществить в компоненты Label. Информацию о результатах расчета сначала выводить в окно сообщения с кнопками OK и Cancel. Ввод данных Курс валюты выполнять в окно ввода.

Рисунок 2 – Интерфейс программы.