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

stack = class

top : pNode;

num : integer;

public

constructor Create;

destructor Destroy;

function newRect(x, y, w, h : integer) : string;

procedure delRect(id : string);

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

function find(id : string) : pNode;

end;

implementation

constructor stack.Create;

begin

top := nil;

num := 0;

end;

destructor stack.Destroy;

var

del : pNode;

begin

while top <> nil do

begin

del := top;

top := top.next;

Dispose(del);

end;

end;

function stack.newRect(x, y, w, h : integer) : string;