| 444 |
|
SIBDatabaseEditor = 'Da&tabase Editor...'; |
| 445 |
|
SIBTransactionEditor = '&Transaction Editor...'; |
| 446 |
|
SIBUpdateLayout = 'Update Layout'; |
| 447 |
+ |
SFBLibLoadProblem = 'IBX is unable to locate or otherwise load the Firebird Library - have you remembered to install it?'; |
| 448 |
|
|
| 449 |
|
procedure Register; |
| 450 |
|
begin |
| 451 |
|
AllowUseOfFBLIB := true; |
| 452 |
< |
if not TryIBLoad then |
| 453 |
< |
begin |
| 454 |
< |
MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0); |
| 455 |
< |
Exit; |
| 452 |
> |
try |
| 453 |
> |
if not TryIBLoad then |
| 454 |
> |
begin |
| 455 |
> |
MessageDlg(SFBLibLoadProblem,mtError,[mbOK],0); |
| 456 |
> |
Exit; |
| 457 |
> |
end; |
| 458 |
> |
except on E: Exception do |
| 459 |
> |
begin |
| 460 |
> |
MessageDlg(SFBLibLoadProblem + ' - ' + E.Message,mtError,[mbOK],0); |
| 461 |
> |
Exit; |
| 462 |
> |
end; |
| 463 |
|
end; |
| 464 |
|
|
| 465 |
|
RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField, TIBArrayField, |
