Class TTVRecordList (unit dbTvRecordList)

Inherits from

TList

Constructors


constructor Create;

TTVRecordList -------------------------------------------------------------


Functions

procedure AddRecord(const AID, AParent, AText: String);


procedure ChangeParent(const AID, NewParent: String);


procedure ChangeText(const AID, NewText: String);


destructor Destroy;


function FindID(const ID: String; var Index: Integer): Boolean;


function FindParent(const Parent: String; var ParentIndex: Integer): Boolean;


function FindTextID(const S: string; var ID: String; InternalTVFindTextOptions: TInternalTVFindTextOptions): Boolean;


function GetDifference( TVRecordList: TTVRecordList): TTVRecordListDifference;


function TextIDList(const S: string; InternalTVFindTextOptions: TInternalTVFindTextOptions): TStringList;


function GetParent(Index: Integer): TTvRecordInfo;


function GetParentList: TTVParentList;


function GetTextList: TTVTextList;


function GetUpperCaseTextList: TTVTextList;


procedure SetSorted(Value: Boolean);


Properties

property Parent : TTvRecordInfo


property Sorted : Boolean


property TextList : TTVTextList


property UpperCaseTextList : TTVTextList


Events

Variables

FParentList : TTVParentList;


FSorted : Boolean;


FTextList : TTVTextList;


FUpperCaseTextList : TTVTextList;



Constructors


constructor Create;

TTVRecordList -------------------------------------------------------------


Functions


procedure AddRecord(const AID, AParent, AText: String);


procedure ChangeParent(const AID, NewParent: String);


procedure ChangeText(const AID, NewText: String);


destructor Destroy;


function FindID(const ID: String; var Index: Integer): Boolean;


function FindParent(const Parent: String; var ParentIndex: Integer): Boolean;


function FindTextID(const S: string; var ID: String; InternalTVFindTextOptions: TInternalTVFindTextOptions): Boolean;


function GetDifference( TVRecordList: TTVRecordList): TTVRecordListDifference;


function TextIDList(const S: string; InternalTVFindTextOptions: TInternalTVFindTextOptions): TStringList;


function GetParent(Index: Integer): TTvRecordInfo;


function GetParentList: TTVParentList;


function GetTextList: TTVTextList;


function GetUpperCaseTextList: TTVTextList;


procedure SetSorted(Value: Boolean);


Properties


property Parent : TTvRecordInfo


property Sorted : Boolean


property TextList : TTVTextList


property UpperCaseTextList : TTVTextList


Events


Variables


FParentList : TTVParentList;


FSorted : Boolean;


FTextList : TTVTextList;


FUpperCaseTextList : TTVTextList;