Exception wird nicht angezeigt

[Rainer Wolff]

Man muss es ja wirklich nicht verstehen, aber folgendes passiert auf meiner Kiste:

Ich habe eine einfache VCL-App erstellt, zwei Buttons, eine IBDatabase. Wenn ich das Programm starte und Button1 drücke, erhalte ich die Exception. Wenn ich mit Button2 die Datenbank connecte und dann wieder Button 1 drücke, passiert nix mehr, keine Exception. ????

Code:

procedure TForm4.Button1Click(Sender: TObject);
var
  wurzel:Double;
begin
  wurzel:=Sqrt(-5);
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  with IBDataBase do
  begin
    Connected := False;
    DatabaseName := 'e:\data\test.gdb';
    Params.Values['user_name'] := 'sysdba';
    Params.Values['password'] := 'masterkey';
    Connected := True;
  end;
end;

[Bernhard Geyer]

Da werden wohl die IB-Klassen an der Exception-Mask "rumspielen".
Such mal im Quellcode von IB nach Aufruf von SetExceptionMask.

[Rainer Wolff]

Zitat von Bernhard Geyer:

Da werden wohl die IB-Klassen an der Exception-Mask "rumspielen".
Such mal im Quellcode von IB nach Aufruf von SetExceptionMask.

Gesucht hab ich, aber ohne Treffer.
Andererseits ist es ja so, dass die Exception auf einem anderen System ausgelöst wird, und dort ist das selbe Programm verbaut.
Demnach kann's auch nicht einfach am Quelltext von Interbase liegen.

Die Firebird-Versionen sind auf den beiden Systemen noch unterschiedlich (ja, ich weiss, IBX und Firebird vertragen sich immer schlechter, ich benutz IB auch nur noch wegen der IBEvents), und auf meiner Kiste ist halt einiges mehr installiert als auf dem Produktionsrechner.