Instrucción sencilla para contar los campos de una tabla paradox

[[Lepe]]

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