delphi... access violation error

[barm]

пишу програму на фреймворке дэлфи7. Документацию по стандартным классам я найти не смог так же как и стандартную реализацию структуры стек (FILO). Решил использовать вот эту реализацию http://snippets.dzone.com/posts/show/2198 код:

unit Stack;

interface

uses
  SysUtils, Classes;

type
  TStack = class
  private
    FList: PPointerList;
    FCapacity, FCount: Cardinal;
    procedure Grow;
  public
    destructor Destroy; override;
    procedure Push( const Data: Pointer );
    function Pop: Pointer;
  end;

implementation

{ TStack }

destructor TStack.Destroy;
begin
  FreeMem( FList );
  inherited;
end;

procedure TStack.Grow;
begin
  if FCapacity > 64 then
    Inc( FCapacity, FCapacity div 4 )
  else
    if FCapacity > 8 then
      Inc( FCapacity, 16 )
    else
      Inc( FCapacity, 4 );
  ReallocMem( FList, FCapacity * SizeOf( Pointer ) );
end;

function TStack.Pop: Pointer;
begin
  if FCount > 0 then
  begin
    Dec( FCount );
    Result := FList^[FCount];
  end
  else
    Result := nil;
end;

procedure TStack.Push(const Data: Pointer);
begin
  if FCapacity = FCount then
    Grow;
  FList^[FCount] := Data;
  Inc( FCount );
end;

end.

При вызове процедуры Push (при обращении к переменным FCapacity и FCount), дебугер выдает ошибку ацес виолэйшн ерор бла-бла.. Т.к. я программирую на скриптовых языках, эти ссылки на память просто разрушают мои мозги, пол дня просидел так и не понял в чем дело... пожалуйста объясните или хотябы предложите решение проблемы

[Прик]

Описание класса - это и есть описание.
Для того чтобы обращаться к методам, свойствам и пр. этого класса при работе программы нужно создать экземпляр этого класса.
Что-то в этом роде:

var
  S : TStack;
begin
  S := TStack.Create;
  try
    S.Push(D);
  finally
    S.Free; //ясен перец, что уничтожение объекта делается тогда когда надо, а не как здесь в примере.
  end;
end;

Где и как - это уже фантазии разработчика.

[barm]

спасибо большое.. я так и знал что надо делать как-то так но меня настораживало отсутсвие конструктора.... я так понял есть конструктор по умолчанию? странно что компиляция проходит без ошибок

[barm]

еще вопрос: как мне использовать указатель который возвращает Pop?
ну допустим я кладу в стек указатель на символ

var a:Char
begin
a := 'a';
stack.Push(@a);

теперь мне получить символ на который указывает этот указатель и передать его в другую функцию

func(stack.Pop^);

так нельзя

var b: pointer;
b := stack.Pop;
func(b^);

так тоже не получается

[Пепел Феникса]

типизированные указатели используйте.

[GunSmoker]

Т.к. я программирую на скриптовых языках, эти ссылки на память просто разрушают мои мозги, пол дня просидел так и не понял в чем дело...

О, ты попал.

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

Есть два варианта - не работать с указателями или изучать, как они работают.

По второму пункту могу предложить чтение мат-части: http://www.transl-gunsmoker.ru/2009/09/blog-post.html