TStringCardinalTree

type TStringCardinalTree = class

protected

  FRoot: TPasItemNode;

  function GetIsEmpty;

  function GetFirstItem;

  procedure NeedRoot;

public

  function ItemOfName();

  function InsertName(); overload;

  function InsertItem(); overload;

  function InsertParented();

  procedure MoveChildLast();

  property IsEmpty: Boolean; [r]

  property FirstItem: TPasItemNode; [r]

  function Level();

  function NextItem();

  procedure Sort;

  constructor Create;

  destructor Destroy; override;

end;

TStringCardinalTree

TObject