Page 86 - 6370

5. Доповнюють програму ще однією кнопкою Button7,
при клацанні на яку має відбуватись запис даних із
об’єктів listbox1 і listbox2 у масиви xa і ya відповідно.

6. Cтворюють опрацювання події OnClick кнопки Button7 .

procedure TForm3.Button7Click(Sender:
TObject);

var i,n:integer;
begin
n:=listbox1.GetCount ; // GetCount – функція, що
вказує на кількість членів списку

for i:=1 to n do
begin

xa[i]:= StrToInt(listbox1.Items[i-
1]);

ya[i]:= StrToInt(listbox2.Items[i-
1]);
end;
y2:=ya[1]; // координата Y точки B (
рисунок 42)

x2:=xa[1]; // координата X точки B (
рисунок 42)

yc:=ya[2]; // координата Y точки C
( рисунок 42)
xc:=xa[2]; // координата X точки C (
рисунок 42)

end;
6. Змінюють процедуру TForm3.Button1Click вкладаючи у
її початок фрагмент коду, завдяки якому у об’єктах класу
88