Obtendo a quantidade de registros total visível de uma tabela

{Inclua na seção uses: DbiProcs Os componentes TTable e TQuery possuem a propriedade RecordCount que indicam a quantidade de registros da tabela.

No entanto esta propriedade é dependente de filtros, ou seja, se tivermos uma tabela com dez registros com campo "Codigo" de 1 a 10 e aplicarmos o filtro mostrado a seguir, a propriedade RecordCount retornará 5 e não 10.}


Table1.Filter := 'Codigo <= 5';
Table1.Filtered := true; {Se quisermos obter a quantidade total de registros, independentemente de filtros, devemos usar uma API do BDE conforme abaixo:}


var
Total: integer;
begin
Check(DbiGetRecordCount(Table1.Handle, Total));
ShowMessage('Total de registros: ' + IntToStr(Total));
end; {Para testar o exemplo acima, o Table1 precisa estar aberto.}