ViewVC Help

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

root/public/ibx/branches/journaling/fbintf/client/FBStatement.pas

Comparing ibx/trunk/fbintf/client/FBStatement.pas (file contents):
Revision 350 by tony, Wed Oct 20 14:58:56 2021 UTC vs.
Revision 359 by tony, Tue Dec 7 09:37:32 2021 UTC

#	Line 112 | Line 112 | type
112		function GetSQLText: AnsiString;
113		function GetProcessedSQLText: AnsiString;
114		function GetSQLDialect: integer;
115	+	function GetFlags: TStatementFlags; virtual;
116
117		{GetDSQLInfo only supports isc_info_sql_stmt_type, isc_info_sql_get_plan, isc_info_sql_records}
118		procedure Prepare(aTransaction: ITransaction=nil);  overload;
#	Line 289 | Line 290 | end;
290
291		function TFBStatement.GetProcessedSQLText: AnsiString;
292		begin
293	<	if FProcessedSQL = '' then
294	<	ProcessSQL(FSQL,FGenerateParamNames,FProcessedSQL);
295	<	Result := FProcessedSQL
293	>	if not FHasParamNames then
294	>	Result := FSQL
295	>	else
296	>	begin
297	>	if FProcessedSQL = '' then
298	>	ProcessSQL(FSQL,FGenerateParamNames,FProcessedSQL);
299	>	Result := FProcessedSQL;
300	>	end;
301		end;
302
303		function TFBStatement.GetSQLDialect: integer;
#	Line 299 | Line 305 | begin
305		Result := FSQLDialect;
306		end;
307
308	+	function TFBStatement.GetFlags: TStatementFlags;
309	+	begin
310	+	Result := [];
311	+	end;
312	+
313		procedure TFBStatement.Prepare(aTransaction: ITransaction);
314		begin
315		Prepare('',aTransaction);

Diff Legend

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