TAtomRing

type TAtomRing = class

public

  function Empty;

  procedure Add();

  function GetCurrent();

  function IsCurrent();

  function SetCurrent();

  function HasPrior;

  function GoBack();

  procedure UndoLastAdd;

  procedure AddReverse();

  function GetPriorAtom;

  function GetAtomAt();

  function GetValueAt(); deprecated ;

  function IndexOf();

  procedure SetIndex();

  function Count; deprecated ;

  function PriorCount;

  function NextCount;

  function HasNext;

  function MoveToNext();

  property Size: Integer; [rw]

  procedure Clear;

  procedure ClearCurrent;

  procedure WriteDebugReport;

  procedure ConsistencyCheck;

  property SrcLen: Integer; [rw]

  constructor Create;

  destructor Destroy; override;

  function CalcMemSize;

end;

TAtomRing

TObject