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