Utilizando Filtro - Problemas

[AlexAC 0]

Bom dia.

Estou precisando de ajuda sobre como filtrar por Nome aceitando 'espaço' no edit.text.

Ex: Filtrar por Nome: 'Ana Carolina' (O Delphi não aceita o espaço entre Ana ' ' Carolina)

 

Alguém pode me dar uma idéia? Obrigado.

 

AlexAC

[Chrnos 30]

Poste o código que está utilizando para podermos auxiliar... sem ele fica difícil dar sugestões.

[Roberto Fagundes 40]

Só poderemos ajudar visualizando o código

porque o delphi e o bd aceita normalmente os espaços

[AlexAC 0]

Obrigado pelo contato.

 

Estou utilizando Delphi 7 e base de dados em Access.

 

Segue o Código:

 

If EditNome.Text <> '' then
begin
with DataModulo.qryPedidosGeral do
begin
Filtered := False;
If EditFiltro.Text <> '' then
EditFiltro.Text := EditFiltro.Text + ' AND ';
EditFiltro.Text := EditFiltro.Text + '(Paciente) Like *'+editNome.Text +'*';
Filter := EditFiltro.Text;
Filtered := True;
end;
EditNome.Text := '';
EditNome.SetFocus;

end;

[Roberto Fagundes 40]

Tente fazer isso:

 

If EditNome.Text <> '' then
  begin
    with DataModulo.qryPedidosGeral do
    begin
      Filtered := False;
      If EditFiltro.Text <> '' then
         EditFiltro.Text := EditFiltro.Text + ' AND ';
      EditFiltro.Text := EditFiltro.Text + '(Paciente) Like ' + QuotedStr('*' + editNome.Text + '*');
      Filter := EditFiltro.Text;
      Filtered := True;
    end;
    EditNome.Text := '';
    EditNome.SetFocus;

  end;

[AlexAC 0]

Roberto, show de bola!!!!

 

Funcionou perfeitamente.

 

Muito obrigado mesmo.