| 1 |
|
unit _MetaManager; |
| 2 |
|
interface |
| 3 |
|
|
| 4 |
< |
uses _FileTypes, TXAN, TXMP, _EmptyFile; |
| 4 |
> |
uses _FileTypes, SUBT, TXAN, TXMP, _EmptyFile; |
| 5 |
|
|
| 6 |
|
type |
| 7 |
|
TFileType = class of TFile; |
| 11 |
|
end; |
| 12 |
|
|
| 13 |
|
const |
| 14 |
< |
FileDescs: array[0..1] of TFileDesc = ( |
| 14 |
> |
FileDescs: array[0..2] of TFileDesc = ( |
| 15 |
> |
(ext: 'SUBT'; ftype: TFile_SUBT), |
| 16 |
|
(ext: 'TXAN'; ftype: TFile_TXAN), |
| 17 |
|
(ext: 'TXMP'; ftype: TFile_TXMP) |
| 18 |
|
); |
| 35 |
|
property FileById[Id: Integer]: TFile read GetFileById; |
| 36 |
|
end; |
| 37 |
|
|
| 38 |
+ |
var |
| 39 |
+ |
Meta: TMetaManager; |
| 40 |
+ |
|
| 41 |
|
implementation |
| 42 |
|
|
| 43 |
|
uses |