18 lines
336 B
ObjectPascal
18 lines
336 B
ObjectPascal
// Упаковка параметров в класс
|
|
uses GraphWPF;
|
|
|
|
type
|
|
Point = auto class
|
|
x,y: integer;
|
|
end;
|
|
|
|
procedure Line(p1,p2: Point) := Line(p1.x,p1.y,p2.x,p2.y);
|
|
|
|
begin
|
|
var p1 := new Point(10,10);
|
|
var p2 := new Point(10,210);
|
|
var p3 := new Point(210,10);
|
|
Line(p1,p2);
|
|
Line(p2,p3);
|
|
Line(p3,p1);
|
|
end. |