TTitanFastStack

type TTitanFastStack = class

public

  Card: Integer;

  fItems: array [0..1024] of Integer;

  constructor Create;

  function Push();

  procedure Clear;

  function Pop;

  function PopPointer;

  function Top;

  function IndexOf();

  function PushUnique();

  procedure Delete();

  property Items []: Integer; default; [r]

end;

TTitanFastStack

TObject