| 15 | 
   | 
     lbl_estimation: TLabel; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 16 | 
   | 
     procedure btn_abortokClick(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 17 | 
   | 
   private | 
 
 
 
 
 
 
 
 
 
 
 
 | 18 | 
 < | 
     procedure HandleFile(ext: String; fileid: LongWord; dir_dat2db: Boolean); | 
 
 
 
 
 
 
 
 
 
 | 18 | 
 > | 
     procedure HandleFile(ext: String; fileid: Integer; dir_dat2db: Boolean); | 
 
 
 
 
 
 
 
 
 
 
 
 | 19 | 
   | 
     procedure stop_convert; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 20 | 
   | 
   public | 
 
 
 
 
 
 
 
 
 
 
 
 | 21 | 
 < | 
     procedure CreateDatabase(Source, target: String); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 22 | 
 < | 
     procedure CreateLevel(Source, target: String); | 
 
 
 
 
 
 
 
 
 
 | 21 | 
 > | 
     procedure CreateDatabase(Source, Target: String); | 
 
 
 
 
 
 | 22 | 
 > | 
     procedure CreateLevel(Source, Target: String); | 
 
 
 
 
 
 
 
 
 
 
 
 | 23 | 
   | 
   end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 24 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 25 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 30 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 31 | 
   | 
 {$R *.dfm} | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 32 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 | 33 | 
 < | 
 uses ABSMain, ABSDecUtil, Main, Functions, Data, | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 34 | 
 < | 
   OniImgClass, DataStructures, OniDataClass; | 
 
 
 
 
 
 
 
 
 
 | 33 | 
 > | 
 uses ABSMain, ABSDecUtil, Main, Functions, Data, OniImgClass, DataStructures, ConnectionManager; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 34 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 35 | 
   | 
 type | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 36 | 
   | 
   THandler = procedure(fileid: LongWord; dir_dat2db: Boolean); |