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

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

s := stack.Create;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Add(s.newRect(300, 100, 100, 100));

Refresh;

end;

procedure TForm1.ListBox1Click(Sender: TObject);

var

selItem : string;

f : pNode;

begin

selItem := ListBox1.Items[ListBox1.ItemIndex];

if selItem <> sel1.Caption then

begin

sel2.Caption := sel1.Caption;

sel1.Caption := selItem;

f := s.find(selItem);

if f <> nil then

begin

EditX.Text := IntToStr(f.x);

EditY.Text := IntToStr(f.y);

EditW.Text := IntToStr(f.w);

EditH.Text := IntToStr(f.h);

end;