Курсовая работа: Разработка класса прямоугольников

end;

function TForm1.max(a, b : integer) : integer;

begin

if a > b then max := a else max := b;

end;

procedure TForm1.roll(var a, b : integer);

var

c : integer;

begin

c := a;

a := b;

b := c;

end;

procedure TForm1.Button5Click(Sender: TObject);

var

x1, y1, w1, h1 : integer;

x2, y2, w2, h2 : integer;

x, y, w, h : integer;

f : pNode;

begin

f := s.find(sel1.Caption);

x1 := f.x;

y1 := f.y;

w1 := x1 + f.w;

if w1 < x1 then roll(w1, x1);

h1 := y1 + f.h;

if h1 < y1 then roll(h1, y1);

f := s.find(sel2.Caption);

x2 := f.x;