Class TStringCardinalTree

Unit

PasDoc_HierarchyTree

Declaration

type TStringCardinalTree = class(TObject)

Description

Hierarchy

• TObject
• TStringCardinalTree

Overview

Fields

FRoot: TPasItemNode;

Methods

	function GetIsEmpty: boolean;
	function GetFirstItem: TPasItemNode;
	procedure NeedRoot;
	function ItemOfName(const AName: string): TPasItemNode;
	function InsertName(const AName: string): TPasItemNode; overload;
	function InsertItem(const AItem: TPasItem): TPasItemNode; overload;
	function InsertParented(const AParent: TPasItemNode; const AItem: TPasItem): TPasItemNode; overload;
	function InsertParented(const AParent: TPasItemNode; const AName: string): TPasItemNode; overload;
	procedure MoveChildLast(const Child, Parent: TPasItemNode);
	function Level(const ANode: TPasItemNode): Integer;
	function NextItem(const ANode: TPasItemNode): TPasItemNode;
	procedure Sort;
	constructor Create;
	destructor Destroy; override;

Properties

	property IsEmpty: boolean read GetIsEmpty;
	property FirstItem: TPasItemNode read GetFirstItem;

Description

Fields

	FRoot: TPasItemNode;

Methods

	function GetIsEmpty: boolean;

	function GetFirstItem: TPasItemNode;

	procedure NeedRoot;

	function ItemOfName(const AName: string): TPasItemNode;

	function InsertName(const AName: string): TPasItemNode; overload;

	function InsertItem(const AItem: TPasItem): TPasItemNode; overload;

	function InsertParented(const AParent: TPasItemNode; const AItem: TPasItem): TPasItemNode; overload;

	function InsertParented(const AParent: TPasItemNode; const AName: string): TPasItemNode; overload;

	procedure MoveChildLast(const Child, Parent: TPasItemNode);

	function Level(const ANode: TPasItemNode): Integer;

	function NextItem(const ANode: TPasItemNode): TPasItemNode;

	procedure Sort;

	constructor Create;

	destructor Destroy; override;

Properties

	property IsEmpty: boolean read GetIsEmpty;

	property FirstItem: TPasItemNode read GetFirstItem;