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. |