source:
oup/current/FileClasses/_EmptyFile.pas@
215
| Last change on this file since 215 was 215, checked in by , 17 years ago | |
|---|---|
| File size: 384 bytes | |
| Rev | Line | |
|---|---|---|
| [212] | 1 | unit _EmptyFile; |
| 2 | ||
| 3 | interface | |
| 4 | ||
| 5 | uses | |
| 6 | _FileTypes; | |
| 7 | ||
| 8 | type | |
| 9 | TFile_Empty = class(TFile) | |
| [214] | 10 | public |
| [212] | 11 | procedure InitDataFields; override; |
| 12 | end; | |
| 13 | ||
| 14 | implementation | |
| 15 | ||
| 16 | uses | |
| 17 | ConnectionManager, Math, Classes, TypeDefs, _DataTypes; | |
| 18 | ||
| 19 | procedure TFile_Empty.InitDataFields; | |
| 20 | begin | |
| [214] | 21 | inherited; |
| [212] | 22 | FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); |
| 23 | end; | |
| 24 | ||
| 25 | ||
| 26 | end. | |
| 27 |
Note:
See TracBrowser
for help on using the repository browser.
