ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/2.5/FB25Statement.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/2.5/FB25Statement.pas (file contents):
Revision 269 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC

# Line 262 | Line 262 | type
262      constructor Create(Attachment: TFB25Attachment; Transaction: ITransaction;
263        sql: AnsiString; aSQLDialect: integer);
264      constructor CreateWithParameterNames(Attachment: TFB25Attachment;
265 <      Transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean);
265 >      Transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean;
266 >      CaseSensitiveParams: boolean=false);
267      destructor Destroy; override;
268      function FetchNext: boolean;
269  
# Line 1179 | Line 1180 | begin
1180    InternalPrepare;
1181   end;
1182  
1183 < constructor TFB25Statement.CreateWithParameterNames(Attachment: TFB25Attachment;
1184 <  Transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1185 <  GenerateParamNames: boolean);
1183 > constructor TFB25Statement.CreateWithParameterNames(
1184 >  Attachment: TFB25Attachment; Transaction: ITransaction; sql: AnsiString;
1185 >  aSQLDialect: integer; GenerateParamNames: boolean;
1186 >  CaseSensitiveParams: boolean);
1187   begin
1188    inherited CreateWithParameterNames(Attachment,Transaction,sql,aSQLDialect,GenerateParamNames);
1189    FDBHandle := Attachment.Handle;
1190    FFirebird25ClientAPI := Attachment.Firebird25ClientAPI;
1191    OnDatabaseError := FFirebird25ClientAPI.IBDataBaseError;
1192    FSQLParams := TIBXINPUTSQLDA.Create(self);
1193 +  FSQLParams.CaseSensitiveParams := CaseSensitiveParams;
1194    FSQLRecord := TIBXOUTPUTSQLDA.Create(self);
1195    InternalPrepare;
1196   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines