| 30 |
|
|
| 31 |
|
{$R *.dfm} |
| 32 |
|
|
| 33 |
< |
uses ABSMain, ABSDecUtil, Main, Code_Functions, Data, |
| 34 |
< |
Code_OniImgClass, Code_DataStructures, Code_OniDataClass; |
| 33 |
> |
uses ABSMain, ABSDecUtil, Main, Functions, Data, |
| 34 |
> |
OniImgClass, DataStructures, OniDataClass; |
| 35 |
|
|
| 36 |
|
type |
| 37 |
|
THandler = procedure(fileid: LongWord; dir_dat2db: Boolean); |
| 160 |
|
for j := 0 to 3 do |
| 161 |
|
temps[j + 1] := ExtensionsHeader[i].Extension[3 - j]; |
| 162 |
|
ExtensionsHeader[i].ExtCount := |
| 163 |
< |
Length(OniDataConnection.GetFilesList(temps, '', False)); |
| 163 |
> |
Length(OniDataConnection.GetFilesList(temps, '', False, stIDAsc)); |
| 164 |
|
progress.Position := i + 1; |
| 165 |
|
lbl_progress.Caption := 'Extensions done: ' + IntToStr(i + 1) + '/' + |
| 166 |
|
IntToStr(Length(extlist)); |