Class stack

[qip2005]

Доброго времени суток Уважаемые делфи разработчики.
Прошу помощи в реализации стека, т.к. с делфями никогда не приходилось раньше работать, вот сейчас такая необходимость возникла.
Написал кое-что, но он категорически отказывается работать.
Вот модуль, реализующий методы работы стека:

unit StStack;

interface

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

type
  TStStack = class
  private
    FItems: array of string;
  public
    procedure Push( newObject: string );
    function Pop(): string;
    function Peek(): string;
    procedure Clear();

    function GetCount(): integer;
    property Count: integer read GetCount;

    destructor Destroy;
  end;

implementation

procedure TStStack.Push( newObject: string );
var
  newCount: integer;
begin
  newCount := Count + 1;
  SetLength( FItems, newCount );
  FItems[ newCount - 1 ] := newObject;
end;

function TStStack.Pop(): string;
begin
  if Count = 0 then
    raise Exception.Create('Стек пуст');

  SetLength( FItems, Count - 1 );
  Result:= FItems[ Count - 1 ];
end;

function TStStack.Peek(): string;
begin
  if Count = 0 then
    raise Exception.Create('Стек пуст');

    Result := FItems[ Count - 1 ]
end;

function TStStack.GetCount(): integer;
begin
  Result := Length( FItems );
end;

procedure TStStack.Clear();
var
  i: integer;
begin
  SetLength( FItems, 0 );
end;

destructor TStStack.Destroy;
begin
  Clear();
  inherited Destroy;
end;

end.

Вот код, который по клику на кнопку должен добавлять элемент в стек, и извлекать его в поле TListBox:

unit MainUnit;

interface

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

type
  TBracket = class

  end;


  TMainForm = class(TForm)
    BracketEdit: TEdit;
    CheckButton: TButton;
    ErrorList: TListBox;
    procedure CheckButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    Stack: TStack;
  public

  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Stack := TStack.Create;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  Stack.Free;
end;

procedure TMainForm.CheckButtonClick(Sender: TObject);
begin
  Stack.Push( BracketEdit.Text );
  ErrorList.Items.Add( Stack.Pop )
end;

end.

Компилятор ругается на вот эту строку:
Stack.Push( BracketEdit.Text );
mainunit.pas(47,32) Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "Pointer"
когда пытаюсь ему "подсунуть" указатель на эту строку, начинает ругаться на ErrorList.Items.Add( Stack.Pop ).
Прошу помочь разобраться что не так и как решить этот вопрос.
Заранее огромное спасибо.

[Человек_Борща]

Разные классы используете.. присмотритесь - это мега-бревно в коде.
написали одно:

type
  TStStack = class

пользуетесь другим...

private
Stack: TStack;
public

Спать надо больше

[qip2005]

Сообщение от Человек_Борща

Разные классы используете.. присмотритесь - это мега-бревно в коде.
написали одно:

type
  TStStack = class

пользуетесь другим...


Спать надо больше

Дык на сон как бе не жалюсь)) Спасибо за ошибку)
Ну в общем тем не менее проблемы существуют, при сборке приложения выпадает исключение:

Проект stack вызвал класс исключения 'External: SIGSEGV'.

И грешит на строку:

Result:= FItems[ Count - 1 ]

метода function TStStack.Pop(): string;

[s-andriano]

Вы забываете в POP декрементировать счетчик.

[GunSmoker]

Проект stack вызвал класс исключения 'External: SIGSEGV'

Гм, а вы уверены, что пишете в Delphi?

[veniside]

вот и я подумал: это ж лазарь!

[evg_m]

function TStStack.Pop(): string;
begin
  if Count = 0 then
    raise Exception.Create('Стек пуст');
  SetLength( FItems, Count - 1 ); 
// и дальше у нас ДРУГОЕ число элементов (возможно =0)
// и того что нам нужно здесь уже точно нет, мы его благополучно удалили предыдущей строкой.
  Result:= FItems[ Count - 1 ];
end;

to s-andriano

Вы забываете в POP декрементировать счетчик.

SetLength( FItems, Count - 1 );

А разве это не то самое?