En paradox funciona el Recordcount, así que....
Código Delphi
[-]
query1.sql.text := ' select * from tabla';
query1.Open;
if query1.Recordcount > 3 then
raise Exception.Create('No se puede añadir más registros');
Levanto una excepción, así puedes situar eso en el BeforePost de la tabla, y al ser una excepción, no dejará guardar más
registros (hablemos con propiedad
)
Saludos