| 20 |
|
function CreateHexString(Data: Tdata; HexOnly: Boolean): String; |
| 21 |
|
function DecodeHexString(hex: String): Tdata; |
| 22 |
|
function GetWinFileName(Name: String): String; |
| 23 |
< |
function GetExtractPath: String; |
| 23 |
> |
//function GetExtractPath: String; |
| 24 |
|
|
| 25 |
|
function Explode(_string: String; delimiter: Char): TStringArray; |
| 26 |
|
|
| 351 |
|
|
| 352 |
|
|
| 353 |
|
|
| 354 |
< |
|
| 354 |
> |
{ |
| 355 |
|
function GetExtractPath: String; |
| 356 |
|
begin |
| 357 |
< |
Result := ExtractFilePath(OniDataConnection.FileName) + '\extracted_' + |
| 358 |
< |
ExtractFileName(OniDataConnection.Filename); |
| 357 |
> |
Result := ExtractFilePath(DataConnections[i].FileName) + '\extracted_' + |
| 358 |
> |
ExtractFileName(DataConnections[i].Filename); |
| 359 |
|
end; |
| 360 |
< |
|
| 360 |
> |
} |
| 361 |
|
|
| 362 |
|
end. |