Problema con la funcion recordcount de los TIBQuery

[[mlara]]

Empezado por alexander_lv

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;

Claro, el problema de esta función es que al igual que al usar First + Last, o FetchAll, se recuperan todos los registros de la base de datos. En ese caso yo sugeriría construir manualmente una consulta con la cláusula COUNT.