Cita:
Empezado por ecfisa
Código Delphi [-]
function NroRegistros(ADBGrid: TDBGrid): Integer;
begin
Result:= ADBGrid.DataSource.DataSet.RecordCount;
end;
|
Le agregaria lo siguiente:
Código Delphi
[-]
function NroRegistros(ADBGrid: TDBGrid): Integer;
begin
Result:=0;
If Not Assigned(ADBGrid.DataSource) then Exit; if Not Assigned(ADBGrid.DataSource.Dataset) then exit; If Not ADBGrid.DataSource.DataSet.Active then Exit;
Result:= ADBGrid.DataSource.DataSet.RecordCount;
end;
Siempre es bueno tomar algunas precauciones...
Saludos