[[egostar]]

Empezado por RONPABLO

en Firebird no lo es tanto, particularmente a mi nunca me dio el valor real sin ir desde el primer registro hasta el ultimo.... lo mismo en el momento de ver una barra vertical de un DbGrib, hasta que no voy al último registro no se ve proporcional la barra de desplazamiento, cosa que no ocurria con Paradox, cabe anotar que yo no trabajo con componentes TTable, lo hago con IBXTable o con MDOTable

Bueno, en eso tienes razón no leí correctamente el hilo y me fui con la finta de TTable, en todo caso lo que yo hago con los IBX es usar un IBQuery con la siguiente consulta.

Código SQL [-]
SELECT COUNT(*) FROM TABLA

Y en Delphi recupero el valor desde ese Query.

Código Delphi [-]
//Obtengo el número de registros de la tabla
function TForm1.NumRegistros:string;
begin
  IBQuery1.Open;
  Result := IBQuery1.Fields[0].AsString;
  IBQuery1.Close;
end;

//Al abrir la tabla muestro Registro X de Y
procedure TForm1.IBTable1AfterOpen(DataSet: TDataSet);
begin
  Label1.Caption := 'Registro ' + InttoStr(IBTable1.RecNo) + ' de ' + NumRegistros;
end;

//Cuando navego en la tabla actualizo el valor
procedure TForm1.IBTable1AfterScroll(DataSet: TDataSet);
begin
  Label1.Caption := 'Registro ' + InttoStr(IBTable1.RecNo) + ' de ' + NumRegistros;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IBTable1.Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  IBTable1.Open;
end;

Salud OS