Problema con la funcion recordcount de los TIBQuery

[alexander_lv]

yo he tomado la siguiente solucion.

utilizo la funcion

Código Delphi [-]
 
function RecordCountInQuery(FQuery: TFIBQuery): integer;

que es la que trae el componente fibplus por defecto.
esta no funciona bien cuando la sentencia SQL incluye las opciones de
GROUP BY, DISTINCT y UNION

para cuando tengo una sentencia sql que incluye esas opciones cree una funcion

Código Delphi [-]
 
 
function RecordCountinQuery_feched(qr: TpFIBQuery):Integer;
var
 i:Integer;
begin
 i:=0;
 while qr.Eof=False do
 begin
  Inc(i);
  qr.Next;
 end;
 result:=i;
end;