Pesquisa

[Diaclau 0]

Olá, bom dia!Estou com problemas na hora de realizar pesquisa.Tenho os seguintes códigos:No form que concentro alguns códigos:

procedure FilterSearch (aCds: TClientDataSet; aType: TTypeLocalizar; aBusca: string);begin  {: Filtra ou Busca os dados}  aCds.Close;  case aType of    {: filtrar dados}    fsFilter: aCds.Params[0].AsInteger := StrToInt(aBusca);    {: buscar dados}    fsSearch: aCds.Params[0].AsString := UpperCase('%'+aBusca+'%');  end;  aCds.Open;end;

No form de cadastro de clientes, onde chamo a tela de pesquisa:

procedure TfrmClientes.Search;begin  inherited;  try    Application.CreateForm(TfrmPesqCliente, frmPesqCliente);    frmPesqCliente.ShowModal;    if frmPesqCliente.ModalResult = mrOk then begin      if frmPesqCliente.opcao = true then begin        FilterSearch(dm.cdsClientes, fsFilter, dmPesq.cdsCliRazaoSocCod_cli.AsString);      end;      if frmPesqCliente.opcao = false then begin        FilterSearch(dm.cdsClientes, fsFilter, dmPesq.cdsCliNomeFantCod_CLI.AsString);      end;    end;  finally    frmPesqCliente.Free;  end;end;

E finalmente, no form de pesquisa:

procedure TfrmPesqCliente.Search;begin  if opcao = true then begin    inherited;    if Edit1.Text <> '' then      FilterSearch(dmPesq.cdsCliRazaoSoc, fsSearch, Edit1.Text);  end  else begin  if opcao = false then begin    inherited;    if Edit1.Text <> '' then      FilterSearch(dmPesq.cdsCliNomeFant, fsSearch, Edit1.Text);    end;  end;end;

Acredito que o erro está ocorrendo, na linha com o seguinte código: FilterSearch(dmPesq.cdsCliRazaoSoc, fsSearch, Edit1.Text);Gostaria de ajuda, Obrigado!

[Rodrigo Miss 1]

mais qual é o erro?

[Diaclau 0]

Olá Rodrigo, Bom dia!A mensagem de erro é a seguinte: o indice da lista esta fora dos limites ....Obrigado.