| 35 |
|
|
| 36 |
|
{$Mode Delphi} |
| 37 |
|
|
| 38 |
+ |
{$IF FPC_FULLVERSION >= 20700 } |
| 39 |
+ |
{$codepage UTF8} |
| 40 |
+ |
{$ENDIF} |
| 41 |
+ |
|
| 42 |
|
{ IBSQL param names in dialect 3 quoted format (e.g. :"MyParam") are by default disabled. |
| 43 |
|
|
| 44 |
|
Dialect 3 quoted format parameter names represent a significant overhead and are of |
| 2144 |
|
|
| 2145 |
|
{ TIBSQL } |
| 2146 |
|
constructor TIBSQL.Create(AOwner: TComponent); |
| 2147 |
+ |
var GUID : TGUID; |
| 2148 |
|
begin |
| 2149 |
|
inherited Create(AOwner); |
| 2150 |
|
FIBLoaded := False; |
| 2168 |
|
FSQLRecord := TIBXSQLDA.Create(self,daOutput); |
| 2169 |
|
FSQLType := SQLUnknown; |
| 2170 |
|
FParamCheck := True; |
| 2171 |
< |
FCursor := HexStr(self); //Name + RandomString(8); |
| 2171 |
> |
CreateGuid(GUID); |
| 2172 |
> |
FCursor := GUIDToString(GUID); |
| 2173 |
|
if AOwner is TIBDatabase then |
| 2174 |
|
Database := TIBDatabase(AOwner) |
| 2175 |
|
else |
