Proximo registro no Delphi 2010

Delphi

02/09/2011

Boa tarde, Utilizo o codigo abaixo para pesquisar o proximo registro no DBGRID utilizando o delphi 7 e funciona perfeito, mas ao migrar para o Delphi 2010 o mesmo não funciona. 
Código:
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if not (TIBCustomDataSet(ClientDataSet).LocateNext(DBGrid1.Columns[cb_Filtro.ItemIndex].FieldName, edt_pesquisar.Text, [loCaseInsensitive,loPartialKey])) then
    ClientDataSet.Locate(DBGrid1.Columns[cb_Filtro.ItemIndex].FieldName,Trim(edt_pesquisar.Text),[loCaseInsensitive,loPartialKey]);
end;
OBS: Para o comando funcionar tenho que declarar na Uses "IBCustomDataSet". Estou utilizando os seguintes componentes: TSQLConnection (com o drive nativo do firebird) + TSQLQuery + TDataSetProvider + TClientDataSet + TDataSource Caso alguem tenha alguma sugestão ou outra forma de pesquisar o proximo registro no DBGRID ficarei grato. valew.
Carlos Eduardo

Carlos Eduardo

Curtidas 0
POSTAR