TTitanArray

type TTitanArray = class(TPersistent)

public

  Scripter: Pointer;

  TypeID: Integer;

  _ElSize: Integer;

  constructor Create();

  destructor Destroy; override;

  procedure _ReDim;

  function _GetPtr;

  function _GetPtrEx;

  function _Get;

  function _GetEx;

  procedure _Put();

  procedure _PutEx();

  function _CheckIndexes;

  procedure ReDim();

  procedure ClearIndexes;

  function AddIndex();

  procedure InsertIndex();

  function Get();

  procedure Put();

  function GetPtr();

  function GetEx();

  procedure PutEx();

  procedure SetMinMax();

  function CheckIndexes();

  function Duplicate;

  function ToString;

  function HighBound();

  function Typed;

  property Buffer: Pointer; [r]

published

  property Owner: Variant; [rw]

  property DimCount: Integer; [rw]

  property Length: Integer; [rw]

  property Index: Integer; [rw]

  property LastIndex: Integer; [rw]

  property InputString: string; [rw]

end;

TTitanArray

TObject