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