| 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 |