ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/local-employeedb/unit1.pas
(Generate patch)

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