# | Line 638 | Line 638 | begin | |
---|---|---|
638 | DoStep('Writing .dat-fileslist'); | |
639 | Application.ProcessMessages; | |
640 | ||
641 | – | TAccess_OniArchive(Connection).UnloadWhenUnused := False; |
642 | – | |
641 | FileTime := Time; | |
642 | Database.StartTransaction; | |
643 | for FileID := 0 to Connection.GetFileCount - 1 do | |
# | Line 742 | Line 740 | begin | |
740 | btn_abortok.Default := True; | |
741 | ||
742 | converting := False; | |
745 | – | TAccess_OniArchive(Connection).UnloadWhenUnused := True; |
743 | ||
744 | Query.Close; | |
745 | Query.Free; |
– | Removed lines |
+ | Added lines |
< | Changed lines (old) |
> | Changed lines (new) |