34 |
|
unit IBUtils; |
35 |
|
{$IFDEF MSWINDOWS} |
36 |
|
{$DEFINE WINDOWS} |
37 |
– |
{$IF defined(CompilerVersion) and (CompilerVersion >= 28)} |
38 |
– |
{Delphi XE7 onwards}} |
39 |
– |
{$define HASREQEX} |
40 |
– |
{$IFEND} |
37 |
|
{$ENDIF} |
38 |
|
|
39 |
|
{$IFDEF FPC} |
394 |
|
end; |
395 |
|
end; |
396 |
|
{$ELSE} |
397 |
< |
{cruder version of above for old versions of Delphi} |
397 |
> |
{cruder version of above for Delphi. Older versions lack regular expression |
398 |
> |
handling.} |
399 |
|
function ExtractConnectString(const CreateSQL: AnsiString; |
400 |
|
var ConnectString: AnsiString): boolean; |
401 |
|
var i: integer; |