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