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