procedure TForm1.Table1XXXXError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  ShowMessage(E.Message);
end;

引言: hagar 兄: 我說的是table onXXerror程序外 不是程序內 就是不要使用onXXerror程序的方法

begin
  try
    Table1.Edit; // or Table1.Insert/Append;
    Table1.FieldByName('Field1').AsString := 'aaa';
    // ...
    Table1.Post;
  except
    on E: EDatabaseError do
      ShowMessage(E.Message);
  end;
end;

引言:

begin
  try
    Table1.Edit; // or Table1.Insert/Append;
    Table1.FieldByName('Field1').AsString := 'aaa';
    // ...
    Table1.Post;
  except
    on E: EDatabaseError do
      ShowMessage(E.Message);
  end;
end;

try except on E:XXX 這個XXX可以是何型態?

try
except
  on E: Exception do
    // ...
end;

引言: 感謝