TPSStack

type TPSStack = class(TPSList)

public

  property DataPtr: Pointer; [r]

  property Capacity: LongInt; [rw]

  property Length: LongInt; [r]

  constructor Create;

  destructor Destroy; override;

  procedure Clear; override;

  function Push();

  function PushType();

  procedure Pop;

  function GetInt();

  function GetUInt();

  function GetInt64();

  function GetString();

  function GetAnsiString();

  function GetWideString();

  function GetUnicodeString();

  function GetReal();

  function GetCurrency();

  function GetBool();

  function GetClass();

  procedure SetInt();

  procedure SetUInt();

  procedure SetInt64();

  procedure SetString();

  procedure SetAnsiString();

  procedure SetWideString();

  procedure SetUnicodeString();

  procedure SetReal();

  procedure SetCurrency();

  procedure SetBool();

  procedure SetClass();

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

end;

TPSStack

TPSList

TObject