Buscar por:

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

Código

{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.}