Организация ввода-вывода данных

Ввод значений переменных можно осуществить:

• С помощью функции InputBox, которая при выполнении программы выводит на экран свое собственное диалоговое окно.

• С помощью текстового окна Edit. В этом случае в событийной процедуре должен быть записан программный код, в котором используется свойствоТextэтого объекта:

Поскольку возвращаемое функцией InputBoxзначение, также как и свойствоTextимеют типString, то, при вводе числовых данных необходимо использовать следующие функции или процедуры преобразования типов:

Замечание. Строка S не должна содержать недопустимые для типа символы. В противном случае возникает сообщение об ошибке.

Вывод результатов можно оформить:

• В текстовое окно Edit, изменяя его свойствоText;

• На метку Label, изменяя ее свойствоCaption;

• С помощью процедуры ShowMessage(), которая при выполнении активизирует свое собственное окно сообщений на экране.

Поскольку свойство Text, Caption и параметр ShowMessage имеют типString, то, при выводе числовых данных необходимо использовать следующие функции или процедуры преобразования типов длябезформатного вывода:

Пример программного кода ввода/вывода числовых данных:

Procedure TForm1.Button1Click(Sender: TObject);

Var

s:real;

s1: integer;

Begin

{Ввод числовых данных}

s:=StrToFloat(Edit1.Text);

s1:=StrToInt(InputBox('Ввод данных','Введите s',''));

{Вывод числовых данных}

Edit2.Text:=FloatToStr(s);

Label1.Caption:=IntToStr(s1);

ShowMessage(FloatToStr(s))

End;

Для вывода чисел по форматуиспользуются:

• Процедура Str(F[:Width[:Decimals]], S), которая преобразует числоFв форматированную строку символовSсогласно объявленному типу переменнойF. (Width – общее количество десятичных цифр, выделяемых числу,Decimals – количество цифр в дробной части (только для вещественных чисел).

Например:

Str(F:20:10,S);

Label1.Caption:=S;

• Функция FloatToStrF (x,Format,Precision, Digits), которая преобразует вещественное числоxв форматированную строку.

Правила использования параметра FormatфункцииFloatToStrF.

Примеры строк программного кода с выводом чисел по формату: