ZEOS Fehler abfangen

[Tyler]

Hallo,

folgenden Code für ich OnClick aus:

Delphi-Quellcode:

  try
    if Query.RecordCount = 0 then l_Warnung.Caption :=
      'Kein Datensatz ausgewählt!';
  except on EDatabaseError do
    l_Warnung.Caption := 'Keine Tabelle geöffnet!';
  end;

Nun führt aber der erste Block nach "try" zu einem Fehler, wenn die Datenbank nicht geöffnet wurde.

Diese Fehlermeldung (Klasse EDatabaseError) versuch ich nun, wie man sieht, abzufangen.

Nur leider wird da garnichts abgefangen. Jemand ne Idee, warum das nicht funktioniert?

Danke schonmal!

tyler