При нажатии на кнопку должна вызываться процедура добавления в стек

[Vladimir-888]

Помогите пожалуйста. Я задал стек с помощью процедур, а как сделать, чтобы при нажатии на кнопку вызывалась данная процедура. Вот мой код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo; //для вывода стека
Button1: TButton; //случайное заполнение стека
Edit1: TEdit; //для ввода значений элементов стека
Button2: TButton; //добавление элемента в стек
Button3: TButton; //удааление элемента из стека
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
type
Tps=^Ts; //определяет тип элемента стека
Ts=record
inf:word; //информационная часть элемента стека
ps:Tps; //указатель на предыдущий элемент стека
end;
var
p:Tps; //указатель на вершину стека
Const n=10; //размерность стека

implementation

{$R *.dfm}

//процедура добавления нового элемента в стек
Procedure AddStack(var P:Tps; n:word);
var
pt:Tps;
begin
new(pt); //выделяем память для нового элемента стека
pt^.inf:=n; //записываем новое число в элемент стека
pt^.ps:=p; //запоминаем указатель на предыдущий элемент стека
p:=pt; //возвращаем этот новый указатель на вершину стека
end;

//процедура извлечения числа из стека с освобождением памяти
Procedure FromStack (var p:Tps; var n:word);
var
pt:Tps;
begin
if p<>nil then begin
pt:=p; //запоминаем старое значение вершины стека
n:=p^.inf; //извлекаем число из текущего элемента стека
p:=p^.ps; //устанавливаем новый указатель на вершину стека
dispose(pt); //освобождаем память старого элемента стека
end
else n:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
randomize; //инициируем датчик случайных чисел
Memo1.Clear; //очищаем текстовый редактор Memo1
p:=nil; //указатель на вершину стека полагаем равным константе nil
for i:=1 to n do begin //открываем цикл записей в стек
j:=random(20); //получаем случайное число
AddStack(p,j); //записываем его в стек
Memo1.Lines.Add(IntToStr(j)); //выводим его значение в Memo1
end;
end;

//кнопка добавления элемента в стек из Edit
procedure TForm1.Button2Click(Sender: TObject);
begin

???

end;

//кнопка удаления элемента
procedure TForm1.Button3Click(Sender: TObject);
begin

???

end;

end.

[psycho-coder]

begin
  AddStack(Tps,  10{Например});
end;
// Удаление
begin
  FromStack(Tps,  10{Например});
end;

P.S.Код не проверял

[mutabor]

Если задача не учебная, то в VCL реализован стек - TStack, TObjectStack.

[Vladimir-888]

Сообщение от mutabor

Если задача не учебная, то в VCL реализован стек - TStack, TObjectStack.

Может подскажешь. как задать стек с помощью TStack, а то везде искал, но ничего подобного нет) на примере желательно)

[mutabor]

Что тебе нужно в стек ложить, какой тип?

[Vladimir-888]

Сообщение от mutabor

Что тебе нужно в стек ложить, какой тип?

Мне нужно ложить в стек числа, но также нужно будет добавить возможность вносить в стек символы (скобки, точки...)

[Vladimir-888]

Помогите, плиз, очень нужно

[Vladimir-888]

Подскажите, какой тип данных можно использовать для элементов стека?