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

d := f.next;

f.next := d.next;

Dispose(d);

break;

end

end;

end;

end;

procedure stack.moveSize(id : string; x, y, w, h : integer);

var

f : pNode;

begin

f := find(id);

if f <> nil then

begin

f.x := x;

f.y := y;

f.w := w;

f.h := h;

end;

end;

function stack.find(id : string) : pNode;

var

f : pNode;

begin

f := top;

while f <> nil do

begin

if f.id = id then break;