7. Написання процедури обробки події створення Форми (FormCreate).

Якщо програміст бажає, щоб при появі панелі інтерфейсу на екрані у відповідних полях знаходилися початкові значення даних, він повинен врахувати, що при запуску консольного додатку виникає подія - створення Форми (OnCreate). Створимо процедуру обробки цієї події, яка занесе початкові значення змінних x, y, z в поля Edit1, Edit2 і Edit3 відповідно, а в полі Memo1 помістить рядок Лабораторна робота №2-Засоби консольного введення/виведення в Delphi.

Для цього двічі клацніть мишею на будь-якому вільному місці Форми. На екрані з'явиться текст модуля UnLinAlg, в якому DELPHI автоматично створює заготовку до процедури-обробника події створення Форми:

Procedure TForm1.FormCreate(Sender:TObject). Між операторами begin і end цієї процедури вставте оператори, які виконують необхідні дії.

8. Написання процедури обробки події натиснення кнопки Button1 (Button1Click).

Помістимо на Форму кнопку, натиснення якої приведе до обчислення виразу. Виберіть в Палітрі Компонентів на сторінці Standart піктограму компоненту Button. У властивості Caption Інспектора Об'єктів замінити текст на кнопці Button1 на “Обчислити.” У властивості Font підберіть шрифт. Відрегулюйте положення і розмір кнопки. Потім двічі клацніть “мишею” на кнопці, після чого курсор встановиться в тексті процедури-обробника події натиснення кнопки Button1 :

Procedure TForm1.Button1Click(Sender:TObject).

Уважно наберіть оператори цієї процедури, використовуючи текст модуля UnLinAlg.

9. Текст модуля UnLinAlg:

Unit UnLinAlg;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs

StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Memo1: TMemo;

Button1: ТВutton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

// Процедура обробки події створення Форми:

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='0.4'; // початкове значення X

Edit2.Text:='8.75e-2'; // початкове значення Y

Edit3.Text:='-19.63'; // початкове значення Z

Memo1.Clear; // очищення Memo1

//Виведення рядка в Memo1:

Memo1.Lines.Add('Лабораторна робота №1 - Лінійний алгоритм');

end;

// Процедура обробки події натиснення кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z,a,b,c,u : extended; // оголошення локальних змінних

begin

x:=StrToFloat(Edit1.Text); // X привласнюється вміст Edit1

y:=StrToFloat(Edit2.Text); // Біля привласнюється вміст Edit2

z:=StrToFloat(Edit3.Text); // Z привласнюється вміст Edit3

// Обчислюється вираз

а:=sqrt(x)-y*y*y;

b:=sin(a)/cos(a);

з:=Exp(5*Ln(b));

u:=c+exp(у/z)*sin(z*z);

Memo1.Lines.Add('X = '+Edit1.Text+' Y = '+Edit2.Text+ ' Z = '+Edit3.Text); // контрольний вивід X, Y, Z в Memo1

//Виеедення результату в Memo1:

Memo1.Lines.Add(' U = '+FloatToStrF(u,ffFixed,8,3));

end;

end.

Дані, з якими працюють компоненти Edit і Memo, мають тип String. Тому в процедурі TForm1.Button1Click при привласненні вмісту полів Edit1,Edit2,Edit3 змінним X,Y,Z за допомогою функції StrToFloat здійснюється перетворення даних типа String в дійсні значення з плаваючою точкою типа Extended. Якщо необхідно працювати з даними цілого типу, використовується функція StrToInt.

При виведення даних в Memo1 використовується метод Add властивості Lines, причому для перетворення даних з дійсного значення в рядкове і управління формою представлення результату, що виводиться, використовується функція FloatToStrF.