ViewVC Help

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

root/public/ibx/trunk/examples/employee/unit1.pas

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

#	Line 380 | Line 380 | end;
380		procedure TForm1.FormShow(Sender: TObject);
381		begin
382		{Set IB Exceptions to only show text message - omit SQLCode and Engine Code}
383	<	FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
383	>	IBDatabase1.FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
384		Application.ExceptionDialog := aedOkMessageBox;
385		repeat
386		try

Diff Legend

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