1

Boa tarde a todos! Estou fazendo pesquisa por nome completo em um TMemo com Delphi, quando o nome inteiro encontra-se na mesma linha funciona bacana, porém se parte do nome está numa linha e a outra parte na linha seguinte, a pesquisa não encontra. Alguma ideia pra solucionar isso?

procedure TForm1.BitBtn4Click(Sender: TObject); 
var 
  acha:string; 
begin 
  if (Memo1.GetTextLen > 0) then 
  begin 
    zPessoa.First; 

    if not zPessoa.Eof then 
      repeat acha:=zPessoanome.Value; 

    if pos(acha, AnsiUpperCase(memo1.Lines.text))>0 then begin 
1
  • Como está seu código, no momento? 18/06/2018 às 20:24

2 Respostas 2

1

Deve-se utilizar o Memo.Lines.Text para tal:

  if Pos('Nome', Memo1.Lines.Text) > 0 then
    ShowMessage('Achou')
  else
    ShowMessage('Não achou');

Se precisar saber o número da linha:

var
  i: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    if Pos('Nome', Memo1.Lines[i]) > 0 then
      ShowMessage('Texto encontrado na ' +IntToStr(i+1) +'ª linha');
  end;
end;

No seu código, o problema é que acha também precisa ser UpperCase, senão ele sempre vai comparar, por exemplo, João Silva com JOÃO SILVA, o que sempre vai dar diferença.

if not zPessoa.Eof then    
   repeat acha := AnsiUpperCase(zPessoanome.Value);

Após o assunto ser melhor explicado, o seu problema pode ser resolvido substituindo a quebra de linha por espaço, utilizando Replace (StrUtils):

if Pos('Nome', Memo1.Lines.Text.Replace(sLineBreak, ' ')) > 0 then
  ShowMessage('Achou')
4
  • O código tá funcionando muito bem, o problema é que ele não encontra o nome que esteja numa quebra de linha.
    – user59673
    19/06/2018 às 12:34
  • Tipo: Marques Leão Magalhães, assim acha com ou sem acentuação!
    – user59673
    19/06/2018 às 12:36
  • Mas: Marques Leão (Final de uma linha) Magalhães (Inicio da próxima).
    – user59673
    19/06/2018 às 12:38
  • Substitua a quebra de linha por espaço. Editei minha resposta com um exemplo. 19/06/2018 às 17:08
0

Bom dia a todos! Agradeço aos que se interessaram em me ajudar! Resolvi o problema fora da rotina, como precisava copiar o texto do diário oficial pro Memo, antes de "despeja-lo" lá, jogo no Notepad++, transformo em uma única linha e problema resolvido!

3
  • Fico feliz que tenha resolvido. Mas para efeitos de ajudar as próximas pessoas que tiverem um problema semelhante, poderia dizer se a minha resposta funcionou ou não para seu caso? Eu havia proposto substituir a quebra de linha por um espaço, que teria o mesmo efeito que você executou fora da rotina. 22/06/2018 às 14:33
  • Obrigado Cleber Griff! Não funcionou, inclusive, constatei que quando essa situação ocorre dentro do Word, com a busca do próprio, não funciona...
    – user59673
    22/06/2018 às 17:35
  • Nem com o .Replace(sLineBreak, ' ') ? Fiquei curioso rs 22/06/2018 às 18:03

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .