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

Last change on this file since 239 was 238, checked in by alloc, 17 years ago
File size: 568 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
[238]13 property ConnectionID: Integer read FConnectionID;
[233]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.