Fórum RecNo e RecordCount negativo - Qual o mistério? #172394

Nossa, que loucura. Se liga Angela. Fiz um teste aqui com uma tabela do alias DBDemos do Delphi usando a tabela Animals.dbf e funcionou corretamente. Depois fiz o mesmo teste usando um alias apontando para uma base de dados interbase(do meu sistema) e aconteceu o memo erro relatdado. Veja os exemplos.


uso Delphi 5.0 e Interbase 6.0.
Componente TQuery normal.


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Label1.Caption := IntToStr(Query1.RecNo) + ´ de ´ + IntToStr(Query1.RecordCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not Query1.Active then Query1.Active := True else Query1.Active := False;
if not Query2.Active then Query2.Active := True else Query2.Active := False;
end;

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
Label2.Caption := IntToStr(Query2.RecNo) + ´ de ´ + IntToStr(Query2.RecordCount);
end;

Será que isso é um bug?
Não é possível, tem que ter alguma forma de fazer isso funcionar, não tem lógica.

Será que tem alguma alma caridosa que possa me dar uma luz de como resolver meu problema com RecNo e RecordCount negativo...

Fico grata a quem puder me ajudar