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 |