Hola a todos, quiero "
capturar" los posibles mensajes de error de una BD y traducirlos al Español. Hasta ahora me resulta solo cuando el error tiene este mensaje
'Key violation.'. El código que uso en el evento
PostError del componente
Table1 es este...
Código Delphi
[-] procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E.Message = 'Key violation.' then
begin
Application.MessageBox(.........);
Action := daAbort
end;
end;
... otra alternativa sería ...
Código Delphi
[-] procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E.Message <> ' ' then
begin
Application.MessageBox(.........);
Action := daAbort
end;
end;
... pero no le daría al usuario la explicación exacta de cada posible error en la entrada de datos.