ViewVC Help

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

root/public/ibx/trunk/runtime/IBQuery.pas

Comparing ibx/trunk/runtime/IBQuery.pas (file contents):
Revision 35 by tony, Tue Jan 26 14:38:47 2016 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

#	Line 71 | Line 71 | type
71		procedure SetPrepared(Value: Boolean);
72		procedure SetPrepare(Value: Boolean);
73		procedure WriteParamData(Writer: TWriter);
74	<	function GetStmtHandle: TISC_STMT_HANDLE;
74	>	function GetStmtHandle: IStatement;
75		procedure UpdateSQL;
76
77		protected
#	Line 105 | Line 105 | type
105		procedure ResetParser; override;
106		property Prepared: Boolean read FPrepared write SetPrepare;
107		property ParamCount: Word read GetParamsCount;
108	<	property StmtHandle: TISC_STMT_HANDLE read GetStmtHandle;
108	>	property StmtHandle: IStatement read GetStmtHandle;
109		property StatementType;
110		property Text: string read FText;
111		property RowsAffected: Integer read GetRowsAffected;
#	Line 141 | Line 141 | end;
141
142		implementation
143
144	+	uses FBMessages;
145	+
146		{ TIBQuery }
147
148		constructor TIBQuery.Create(AOwner: TComponent);
#	Line 399 | Line 401 | procedure TIBQuery.SetParams;
401		var
402		i : integer;
403		Buffer: Pointer;
404	<	SQLParam: TIBXSQLVAR;
404	>	SQLParam: ISQLParam;
405
406		begin
407		for I := 0 to FParams.Count - 1 do
#	Line 502 | Line 504 | begin
504		AddFieldToList(Params[i].Name, Self, DetailFields);
505		end;
506
507	<	function TIBQuery.GetStmtHandle: TISC_STMT_HANDLE;
507	>	function TIBQuery.GetStmtHandle: IStatement;
508		begin
509		Result := SelectStmtHandle;
510		end;
511
512		procedure TIBQuery.UpdateSQL;
513		begin
514	<	if not FSQLUpdating and not FInQueryChanged then
514	>	if not FSQLUpdating and not FInQueryChanged and (SQL.Text <> SelectSQL.Text) then
515		begin
516		FSQLUpdating := true;
517		try

Diff Legend

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