ViewVC Help

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

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

Comparing ibx/trunk/runtime/IBSQL.pas (file contents):
Revision 49 by tony, Thu Feb 2 16:20:12 2017 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 879 | Line 879 | end;
879
880		procedure TIBSQL.SetDatabase(Value: TIBDatabase);
881		begin
882	+	if Value = FBase.Database then Exit;
883		FBase.Database := Value;
884	+	FreeHandle;
885		end;
886
887		procedure TIBSQL.Prepare;

Diff Legend

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