| 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 | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 731 | 
   | 
   btn_abortok.Default := True; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 732 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 733 | 
   | 
   converting := False; | 
 
 
 
 
 
 
 
 
 | 734 | 
 + | 
   TAccess_OniArchive(Connection).UnloadWhenUnused := True; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 735 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 736 | 
   | 
   Query.Close; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 737 | 
   | 
   Query.Free; |