Como trabaja RecordCount de las Tablas Paradox???

[__cadetill]

El primer número es el registro en el que nos encontramos y, el segundo, es la cantidad de registros que tiene la tabla. Si haces un

select count(*)
from tabla

en tu caso, debería de darte 118

Por otro lado, el registro actual, creo que no se puede quitar (a no ser que modifiques los fuentes, claro )

[JamesBond_Mx]

Pero la tabla solo tiene 117 Registros, por que el 118???

[__cadetill]

Empezado por JamesBond_Mx

Pero la tabla solo tiene 117 Registros, por que el 118???

Quizás es un bug de los componentes (y nunca me había dado cuenta ) pero... estás seguro que no tiene 118?? lo has comprovado?

[JamesBond_Mx]

Comprobadisimo, solo tengo 117, y el detalle es este, si inicio la aplicacion me muestra desde un principio la cantidad que tengo 117 por ejemplo, si agrego un registro mas, me actualiza a 118, pero si agrego uno más, en lugar de poner 119 que es lo lógico pone 120, y si agrego otro pone 122, y si agrego otro pone 125, y asi se va aumentando, primero 1, luego 2, luego 3 etc. como que no esta bien ¿no?

[__cadetill]

Pues lo acabo de probar y a mi me ha funcionado bien

Por otra parte, he visto que sí se puede sacar el número totales de registros, poniendo la propiedad CalcRecCount a false

[marcoszorrilla]

He colocado un rejilla y he dado altas, bajas y siempre me marca el número correcto de registros:

procedure TForm1.FormActivate(Sender: TObject);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
end;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

Un Saludo.

[[eduarcol]]

Porq no sacas el recordcount de alli y lo colocas en el AfterPost

Cant.Caption:=IntToStr(Modulo1.Anoma.RecordCount;