Ver Mensaje Individual
  #2  
Antiguo 24-08-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

La propiedad RecordCount te devuelve la cantidad total de registros actuales.

Pero si lo que deseas es tener la cantidad total de registros, los filtrados y los ocultos podrías hacer:
Al filtrar:
Código Delphi [-]
...
begin
  ClientDataSet1.Filtered := False;
  ClientDataSet1.Tag      := ClientDataSet1.RecordCount;
  ...
  ( Aplicar el filtro )
  ...
  ClientDataSet1.Filtered := True;
end;

Ejemplo; mostrar resultado:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('Total:%d, Filtrados:%d, Ocultos:%d',
    [ClientDataSet1.Tag, ClientDataSet1.RecordCount,
     ClientDataSet1.Tag-ClientDataSet1.RecordCount]));
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita