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