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

Last change on this file since 238 was 238, checked in by alloc, 17 years ago
File size: 568 bytes
Line 
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 ConnectionID: Integer read FConnectionID;
14 property ChildCount: Integer read GetChildCount;
15 property Child[ID: Integer]: TTreeElement read GetChild;
16 property Caption: String read GetCaption;
17 end;
18
19implementation
20
21end.
Note: See TracBrowser for help on using the repository browser.