ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/client/3.0/FB30Statement.pas

Comparing ibx/trunk/fbintf/client/3.0/FB30Statement.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 256 | Line 256 | type
256		constructor Create(Attachment: TFB30Attachment; Transaction: ITransaction;
257		sql: AnsiString; aSQLDialect: integer);
258		constructor CreateWithParameterNames(Attachment: TFB30Attachment; Transaction: ITransaction;
259	<	sql: AnsiString;  aSQLDialect: integer; GenerateParamNames: boolean =false);
259	>	sql: AnsiString;  aSQLDialect: integer; GenerateParamNames: boolean =false;
260	>	CaseSensitiveParams: boolean=false);
261		destructor Destroy; override;
262		function FetchNext: boolean;
263		property StatementIntf: Firebird.IStatement read FStatementIntf;
#	Line 1271 | Line 1272 | end;
1272
1273		constructor TFB30Statement.CreateWithParameterNames(
1274		Attachment: TFB30Attachment; Transaction: ITransaction; sql: AnsiString;
1275	<	aSQLDialect: integer; GenerateParamNames: boolean);
1275	>	aSQLDialect: integer; GenerateParamNames: boolean;
1276	>	CaseSensitiveParams: boolean);
1277		begin
1278		inherited CreateWithParameterNames(Attachment,Transaction,sql,aSQLDialect,GenerateParamNames);
1279		FFirebird30ClientAPI := Attachment.Firebird30ClientAPI;
1280		FSQLParams := TIBXINPUTSQLDA.Create(self);
1281	+	FSQLParams.CaseSensitiveParams := CaseSensitiveParams;
1282		FSQLRecord := TIBXOUTPUTSQLDA.Create(self);
1283		InternalPrepare;
1284		end;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines