Contar registros en un ClientDataSet con filtro

[ecfisa]

Hola.

Empezado por tiqui_loquito

Hola ecfisa

Tengo una inquietud

A la propiedad Tag le asigno el Total de registros. Por lo tanto, Tag tendría el mismo valor de RecorCount, entonces a la hora de imprimir tendrían los mismos valores y no el total de registros filtrados.

No, por que el valor de la propiedad RecordCount no debería ser el mismo luego de la aplicación de un filtro que seleccione parte del conjunto de registros.

Un ejemplo funcional sobre la tabla country que trae Delphi:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.Open;
  Caption := Format('Total de registros: %d',[ClientDataSet1.RecordCount]);
end;

procedure TForm1.CheckBoxFiltrarClick(Sender: TObject);
var
  cds: TClientDataSet;
begin
  cds := ClientDataSet1;
  cds.Filtered := False;
  cds.Tag      := ClientDataSet1.RecordCount;
  Memo1.Lines.Clear;
  if TCheckBox(Sender).Checked then
  begin
    cds.Filter   := Format('CONTINENT = %s',['''South America''']);
    cds.Filtered := True;
    Memo1.Lines.Add(Format('Total registros: %d',[cds.Tag]));
    Memo1.Lines.Add(Format('Total filtrados: %d',[cds.RecordCount]));
    Memo1.Lines.Add(Format('Total ocultos  : %d',[cds.Tag - cds.RecordCount]));
  end;
end;

Salida:


Saludos