| Line | |
|---|
| 1 | unit ListObject;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Classes, SysUtils;
|
|---|
| 7 |
|
|---|
| 8 | type
|
|---|
| 9 |
|
|---|
| 10 | // TListInteger<Integer, Integer>
|
|---|
| 11 | TGListObjectIndex = Integer;
|
|---|
| 12 | TGListObjectItem = TObject;
|
|---|
| 13 | {$DEFINE INTERFACE}
|
|---|
| 14 | {$I 'GenericListObject.inc'}
|
|---|
| 15 |
|
|---|
| 16 | TListObject = class(TGListObject)
|
|---|
| 17 | end;
|
|---|
| 18 |
|
|---|
| 19 | implementation
|
|---|
| 20 |
|
|---|
| 21 | {$DEFINE IMPLEMENTATION_USES}
|
|---|
| 22 | {$I 'GenericListObject.inc'}
|
|---|
| 23 |
|
|---|
| 24 | {$DEFINE IMPLEMENTATION}
|
|---|
| 25 | {$I 'GenericListObject.inc'}
|
|---|
| 26 |
|
|---|
| 27 |
|
|---|
| 28 | end.
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
![(please configure the [header_logo] section in trac.ini)](/DelphiLibs/chrome/site/your_project_logo.png){kind=logo}
