Foreign-Key Fehlermeldung verhindern

[Thomas Wittek]

Wenn ich versuche einen Datensatz zu löschen, der bereits als Fremdschlüssel in einer anderen Tabelle verwendet wird, erscheint die Fehlermeldung "violation of Foreign Key ..."). Wie kann ich diese Fehlermeldung verhindern. In Redsys2 erscheint auch keine Fehlermeldung, sondern der Datensatz wird einfach nicht gelöscht.

[Andreas Kosch]

Hallo,

über eine eigene Exception-Behandlung (TRY...EXCEPT beim Aufruf oder globaler Exception-Handler) kann man derartige Vetos des InterBase aussortieren und benutzerfreundlicher Anzeigen

[Thomas Wittek]

Danke, Herr Kosch! ich habe das Problem mit der
ApplicationsEvents-Komponente gelöst.

procedure TfrmHaupt.AppEvents1Exception(Sender: TObject; E: Exception);
begin
if (Pos('violation of FOREIGN KEY constraint', E.Message) > 0) then
MessageDlg('Dieser Datensatz kann nicht gelöscht werden, '
+'da in anderen Bereichen auf Ihn verwiesen wird !',
mtInformation,[mbOk], 0)
else
// irgend ein anderer Fehler
Application.ShowException(E);
end