| 24 |  | implementation | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 25 |  | {$R *.dfm} | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 26 |  | uses ABSMain, ABSDecUtil, Main, | 
 
 
 
 
 
 
 
 
 
 
 | 27 | < | ConnectionManager, TypeDefs, DataAccess, OniImgClass, Data, RawList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 27 | > | ConnectionManager, TypeDefs, DataAccess, OniImgClass, Data, RawList, | 
 
 
 
 
 | 28 | > | Access_OniArchive; | 
 
 
 
 
 
 
 
 
 
 
 | 29 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 30 |  | var | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 31 |  | Converting:  Boolean = False; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 632 |  | DoStep('Writing .dat-fileslist'); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 633 |  | Application.ProcessMessages; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 634 |  |  | 
 
 
 
 
 
 
 
 | 635 | + | TAccess_OniArchive(Connection).UnloadWhenUnused := False; | 
 
 
 
 
 
 
 
 | 636 | + |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 637 |  | FileTime := Time; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 638 |  | Database.StartTransaction; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 639 |  | for FileID := 0 to Connection.GetFileCount - 1 do |