Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 616 | bw | 1 | {$mode objfpc} |
| 2 | |||
| 3 | unit Classes; |
||
| 4 | |||
| 5 | {$i _defines.inc} |
||
| 6 | |||
| 7 | interface |
||
| 8 | |||
| 9 | uses |
||
| 10 | RTLConsts, SysUtils, Types, TypInfo; |
||
| 11 | |||
| 12 | {$i classesh.inc} |
||
| 13 | |||
| 14 | implementation |
||
| 15 | |||
| 16 | uses |
||
| 17 | SysConst; |
||
| 18 | |||
| 19 | { OS - independent class implementations are in /inc directory. } |
||
| 20 | {$i classes.inc} |
||
| 21 | |||
| 22 | initialization |
||
| 23 | CommonInit; |
||
| 24 | finalization |
||
| 25 | CommonCleanup; |
||
| 26 | end. |