ViewVC Help

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

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

Comparing ibx/trunk/runtime/ibxscript.pas (file contents):
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 108 by tony, Thu Jan 18 14:37:46 2018 UTC

#	Line 652 | Line 652 | end;
652
653		procedure TCustomIBXScript.SetDatabase(AValue: TIBDatabase);
654		begin
655	<	if FDatabase = AValue then Exit;
655	>	if not (csLoading in ComponentState) and (FDatabase = AValue) then Exit;
656		FDatabase := AValue;
657		FISQL.Database := AValue;
658		FIBXMLProcessor.Database := AValue;

Diff Legend

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