source: oup/current/FileClasses/_TreeElement.pas@ 233

Last change on this file since 233 was 233, checked in by alloc, 17 years ago
File size: 510 bytes
RevLine 
[233]1unit _TreeElement;
2interface
3
4
5type
6 TTreeElement = class
7 FConnectionID: Integer;
8 function GetChildCount: Integer; virtual; abstract;
9 function GetChild(ID: Integer): TTreeElement; virtual; abstract;
10 function GetCaption: String; virtual; abstract;
11 private
12 public
13 property ChildCount: Integer read GetChildCount;
14 property Child[ID: Integer]: TTreeElement read GetChild;
15 property Caption: String read GetCaption;
16 end;
17
18implementation
19
20end.
Note: See TracBrowser for help on using the repository browser.