Введення й виведення даних

Lazarus. ВВІД І ВИВІД ДАНИХ

Будь-яка програма в своїй роботі використовує якісь вихідні дані.

Для організації введення даних можна використовувати компонент форми TEdit (поле введення), для виведення результатів – Label компонент (поле виведення).

Інший спосіб організації введення і виведення даних - використання вбудованих діалогових вікон Inputbox, Showmessage. Ці діалогові вікна не встановлюються програмістом на форму під час розробки. Оператори їх активації потрібно вставляти в програмний код.

Більш докладно зупинимося на другому способі.

Ввід даних

Функція InputBox () виводить на екран діалогове вікно, в якому можна ввести дані. Аргументами цієї функції є три рядки, а значенням функції - рядок введена користувачем.

У загальному вигляді рядок програмного коду з використанням функції InputBox виглядає так:

Змінна: = InputBox ( 'Заголовок', 'Підказка', 'Значення за замовчуванням');

де:

Змінна - змінна рядкового типу, значення якої повинно бути отримано від користувача;

Заголовок - текст заголовка вікна;

Підказка – текст, який пояснює зміст повідомлення;

Значення за замовчуванням - текст, який буде знаходитися в полі введення, коли вікно з'явитися на екрані.

Наприклад,

n: = InputBox ( ‘Введення числа ',' Введіть число: ',' ');

Результат показаний на рисунку:

Якщо користувач клацне по кнопці ОК, то значенням функції стане рядок, введений користувачем в текстове поле. Якщо користувач клацне по кнопці Скасувати, то значенням функції стане рядок «Значення за замовчуванням».

Значення функції InputBox завжди рядкового типу (String), тому в разі, якщо потрібно ввести число, то введений рядок повинна бути перетворений в число за допомогою відповідної функції перетворення.

Як приклад візьмемо завдання перерахунку ваги з фунтів в кілограми

Введення вихідних даних з вікна введення і подальше перетворення даних може виглядати так:

funtStr:= InputBox(‘Фунти-кілограми’,’Введіть вагу в фунтах:’,’ ‘);

funtFloat:=StrToFloat(funtStr);

Вивід даних

Результат роботи програми найчастіше виводять у вікно повідомлення ShowMessage, або в поле виведення (компонент Label).

Вивід у вікно повідомлення ShowMessage

Для виведення результату використовується процедура ShowMessage (). Вона виводить на екран діалогове вікно з текстом з командною кнопкою OK.

Загальний вигляд інструкції виклику процедури ShowMessage:

ShowMessage ('Повідомлення');

де Повідомлення - текст, який буде виведений у вікні.

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

ShowMessage(‘Вага в кілограмах: ‘+ FloatToStr(kg));

Результат показано на рисунку.

Вивід в поле виведення (Label)

Компонент TLabel (Поле виведення), в який буде здійснюватися вивід, встановлюють на формі під час розробки. Вміст цього поля визначається значенням властивості Caption.

Для того щоб вивести результати в це поле, потрібно в програмному коді помістити оператор присвоювання, який буде змінювати значення властивості Напис на потрібне вам значення.

Наприклад, для того щоб вивести результат в поле виведення Label1 в розглянутій вище задачі, потрібно використовувати наступний оператор:

Label1.Caption:=FloatToStr(kg) + ‘кг‘;

Практична робота №1

Завдання. Помістити на форму дві кнопки: Введення даних і Вихід. Користувач повинен ввести прізвище, ім'я та вік. Для введення даних використовувати функцію InputBox. Після закінчення введення анкетні дані вивести в поле (КОМПОНЕНТ виведення Label).

Хід виконання

1. Створити новий проект. Папку проекту назвати Анкетні дані.

2. Розмістити на формі дві кнопки і напис так, як показано на малюнку вище.

3. Написати програмний код для кнопки Введення даних.

 procedure TForm1.Button1Click(Sender: TObject);

begin

        label1.Caption:=InputBox('Ввід анкетних даних', 'Введіть прізвище, ім’я, вік:','');

end;

4. Написати програмний код для кнопки Вихід

procedure TForm1.Button2Click(Sender: TObject);

begin

        Close;

end;

5. Зберегти проект. Перевірити роботу програми.

Після клацання на кнопці Введення даних має з'явитися діалогове вікно. Введіть в нього вихідні дані.

Після натискання на клавішу Enter введені дані повинні відобразитися на формі. Результат показаний на рисунку.

На цьому уроці ми розглянули способи організації введення і виведення даних в середовищі Lazarus. Для введення даних ми використовували діалогове вікно InputBox, для виведення - діалогове вікно ShowMessage і компонент форми TLabel (Поле виведення).

Компонент TLabel встановлюється на формі під час розробки, діалогові вікна виводяться в окремому вікні під час виконання програми, не займають місце на формі. Для їх виведення потрібен відповідний програмний код.