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