| 4 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 5 |  | type | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 6 |  | TTreeElement = class | 
 
 
 
 
 
 
 
 | 7 | + | protected | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 8 |  | FConnectionID: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 9 |  | function GetChildCount: Integer; virtual; abstract; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 10 |  | function GetChild(ID: Integer): TTreeElement; virtual; abstract; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 11 |  | function GetCaption: String; virtual; abstract; | 
 
 
 
 
 
 
 
 
 
 
 | 12 | < | private | 
 
 
 
 
 
 
 
 
 | 12 | > | function GetType: String; virtual; abstract; | 
 
 
 
 
 
 
 
 
 
 
 | 13 |  | public | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 14 |  | property ConnectionID: Integer read FConnectionID; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 15 |  | property ChildCount: Integer read GetChildCount; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 16 |  | property Child[ID: Integer]: TTreeElement read GetChild; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 17 |  | property Caption: String read GetCaption; | 
 
 
 
 
 
 
 
 | 18 | + | property VType: String read GetType; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 19 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 20 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 21 |  | implementation |