ViewVC Help

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

root/public/ibx/trunk/examples/local-employeedb/unit1.pas

Comparing ibx/trunk/examples/local-employeedb/unit1.pas (file contents):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

#	Line 513 | Line 513 | end;
513		procedure TForm1.FormShow(Sender: TObject);
514		begin
515		{Set IB Exceptions to only show text message - omit SQLCode and Engine Code}
516	<	FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
516	>	IBDatabase1.FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
517		Application.ExceptionDialog := aedOkMessageBox;
518		try
519		IBDatabase1.Connected := true;

Diff Legend

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