BDE Fehlermeldung ändern

[RB]

Hallo,

gibt es eigentlich eine Möglichkeit die BDE Fehlermeldung abzuändern. Ich möchte es erreichen, dass zum Beispiel anstatt "Indexfehler" die Meldung "Der Datensatz ist schon vorhanden".

Danke für eure Antoworten!

Gruß Rainer

[Andreas Kosch]

Hallo,

selbstverständlich gibt es diese Möglichkeit, indem entweder über TRY...EXCEPT oder über OnPostError eine eigene Exception-Behandlung installiert wird. Über die Eigenchaften des von Delphi übergebenen Exception-Objekts kann man die native Fehlernummer auslesen, um darauf mit einem eigenen Text zu reagieren. Das könnte zum Beispiel so aussehen:
<pre>
procedure TFormMain.TableKeyViolPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if E is EDBEngineError then
with E as EDBEngineError do
begin
if Errors[0].ErrorCode = DBIERR_KEYVIOL then
begin
ShowMessage('Doppelter Wert im Schlüsselfeld');
Action := daAbort;
DataSet.Cancel
end
end
end;
</pre&gt

[RB]

Hallo Herr Kosch,

vielen Dank für Ihre Antwort.

Gruß Rainer Budd