Quantidade de ítens dentro do dbgrid - como conseguir?

Delphi

06/05/2004

Olá amigos,

gostaria de saber como contar a quantidade de registros (linhas) dentro de um dgbrid. Estou utilizando o componente TAble e Datacource.

Obrigado.


Cazuza

Cazuza

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

06/05/2004

Supondo que a Table1 é o dataSet do DBGrid...

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(IntToStr(Table1.RecordCount);
end;



GOSTEI 0
Rodolpho123

Rodolpho123

06/05/2004

Olá cazuza,

Bem, qual é o BD que vc está usando? Se for InterBase ou FireBird, vc só vai conseguir saber o total de registros se vc visitar todos os registros. Eu costumo fazer assim:
procedure TForm1.IBTable1AfterOpen(DataSet: TDataSet);
begin
with IBTable1 do
  begin
    Last;
    First;
  end;
ShowMessage(´Total de ´ + IntToStr(IBTable1.RecordCount)+´registros´;
end;



GOSTEI 0
POSTAR