Використання функцій

Зазвичай функції використовують як операнди виразів. Параметром функції може бути констан­та, змінна або вираз відповідного типу. Нижче наведені приклади використання стандартних функцій і функцій перетворення,

n := Round( (x2-x1)/dx);

x1: = (-b + Sqrt(d) ) / (2*а);

m := Random(10);

cena := StrToInt(Edit1.Text);

Edit2.Text := IntToStr (100);

mes := ‘х1=’ + FloatToStr (x1);

6. Введення даних

Найпростіше програма може одержати вихідні дані з вікна введення (InputBox) або з поля редагування (компонент Edit).

Введення з вікна введення

Вікно введення — це стандартне діалогове вікно, яке з'являється на екрані в результаті виклику функції InputBox. Значення функції InputBox — рядок, який ввів користувач.

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

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

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

Заголовок – текст заголовка вікна введення;

Підказка – текст пояснювального повідом­лення;

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

Д алі, як приклад, наведена інструкція, використовуючи яку можна дістати вихідні дані для програми переведення ваги з фунтів у кілограми:

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

Вікно введення, відповідне до цієї інструкції, показане на рисунку 1.

Щоб отримати це зображення необхідно на­писати код в процедурі:

procedure TForm1.ButtonlClick(Sender: TОbject);

var s:string;

begin

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

end;

Якщо під час роботи програми користувач введе рядок і виконає клік на кнопці ОК, то значен­ням функції Inputbox буде введений рядок. Якщо клік буде зроблено на кнопці Cancel, то значен­ням функції буде рядок, зазначений в якості параметра значення.

Потрібно ще раз звернути увагу на те, що значення функції Inputbox рядкового (string) типу. Тому, якщо програмі треба отримати число, то введений рядок має бути перетворений в число за до­помогою відповідної функції перетворення.

Наприклад,

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

funt := StrToFLoat (s) ;

Введення з поля редагування

Поле редагування – це компонент Edit. Введення даних з поля редагування здійснюється звертанням до властивості Text.

Компонент Edit використовується для введен­ня початкових даних. Інструкція введення даних буде мати вигляд:

а := StrToFloat (Editl.Text) ;

7. Виведення результатів

Найпростіше програма може вивести результат своєї роботи у вікно повідомлення або в поле компонента Label.

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

Вивести на екран вікно з повідомленням можна за допомогою процедури Showmessage.

П роцедура Showmessage виводить на екран вікно з текстом і командною кнопкою ОК. У загальному вигляді інструкція виклику процедури Showmessage має вигляд:

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

де повідомлення — текст, який буде виведе­ний у вікні.

На рисунку 2 наведене вікно, яке з'являється на екрані в результаті виконання інструкції

Showmessage (‘Вага у кілограмах’);

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

Відображення інформації у вікні програми забезпечує компонент Label.

Вміст області відображення (поля компонен­та Label) визначається значенням властивості Caption. Змінити значення властивості Caption, як і більшості властивостей інших компонентів, можна як під час розробки форми програми, так і під час роботи програми.

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

Властивість Caption символьного типу. Тому, для того, щоб під час роботи програми вивести в поле мітки числове значення, потрібно пере­творити число в рядок, наприклад, за допомогою функції FloatToStr або IntToStr.

Далі, як приклад, наведена інструкція із програми переведення ваги з фунтів у кілограми, яка використовується для виведення результату розрахунків.

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