| 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 |