Stack-Problem kann nur ein Element Stapeln!

[hazard999]

autsch.

der code tut weh.

Delphi-Quellcode:

type
   tstapel = record
      Stack: array[0..256000] of longint;
      top: integer;
   end;

   TForm1 = class(TForm)
      Edit1: TEdit;
      Label1: TLabel;
      Button1: TButton;
      Button2: TButton;
      Label2: TLabel;
      Button3: TButton;
      Memo1: TMemo;
      procedure Button3Click(Sender: TObject);
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
   private
      { Private-Deklarationen }
      s: tstapel;
      procedure ErzSt;
      procedure StEl(e: Integer);
      function StLeer: integer;
   public
      { Public-Deklarationen }

   end; // hier wirds wichtig...
var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ErzSt;
begin
   s.top := 0
end;

procedure TForm1.StEl(e: Integer);
begin
   Inc(s.top);
   s.Stack[s.top] := e;
end;

function TForm1.StLeer: integer;
begin
   Dec(s.top);
   result := s.Stack[s.top];
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   ErzSt;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   e := StrToInt(edit1.text);
   StEl(e);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   memo1.Lines.Add(IntToStr(StLeer));
end;

end.

etwas besser...