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