Research Tmemo Delphi

Question

Good afternoon to you all! I am doing full name search on a Tmemo with Delphi, when the whole name is on the same line works well, but if part of the name is on one line and the other part on the next line, the search does not find. Any idea how to solve this?

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 

Answer 1

The Memo.Lines.Text for such:

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

If you need to know the line number:

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;

In your code, the problem is acha also needs to be Uppercase, otherwise it will always compare, for example, João Silva with JOÃO SILVA, which will always make a difference.

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

After the subject is explained better, your problem can be solved by replacing the line break by space, using Replace (Strutils):

if Pos('Nome', Memo1.Lines.Text.Replace(sLineBreak, ' ')) > 0 then
  ShowMessage('Achou')

Answer 2

Good morning to you all! I thank those who were interested in helping me! I solved the problem out of routine, as I needed to copy the text of the official journal pro Memo, before "dump it" there, game on Notepad++, turn into a single line and solved problem!