Capturar Excepciones

[[Lepe]]

hazlos todos de una sola vez:

Código Delphi [-]
procedure ...BeforePost(....)
var Msg:string;
begin
Msg := EmptyStr;

if campo1.IsNull then
  Msg:= msg + #10#13+ 'campo1';

if campo2.IsNull then
  Msg:= msg + #10#13+ 'campo2';

if Msg <> EmptyStr then
begin
 Msg := ' Los siguientes campos no pueden estar vacios:'+#10#13+ Msg;
 Databaseerror(msg);
end;

Tambien puedes hacerlo más eficiente con un bucle sobre Tfields, viendo si tiene la propiedad Required y despues comprobando si es nulo

saludos