TTitanStack

type TTitanStack = class

public

  Card: Integer;

  fItems: array of Integer;

  constructor Create;

  function Push();

  function Pop;

  function PopPointer;

  function Top;

  procedure SaveToStream();

  procedure LoadFromStream();

  procedure Clear;

  function StackPtr;

  procedure CopyFrom();

  function IndexOf();

  function PushUnique();

  procedure Delete();

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

end;

TTitanStack

TObject