Ajuda Localizar memo com memo delphi

14/01/2016

2

E ai pessoal beleza?, tenho esse código que faz busca em memo com edit, gostaria de uma ajuda para por exemplo...

Tenho 2 memo...

Memo 1

Texto :

TESTE AE AB AC AD AE AG TESTANDO


Memo 2

AK AG AT AP TESTE KP LK PK PD PG


Veja que no Memo 1 e memo 2 tem texto igual q no caso e o Teste caso ele localize, ele mostra uma mensagem, o titulo diz tudo... localizar memo em outro memo... aguardo..

esse e o codigo que eu busco com edit


var
lista:TstringList;
posicao:integer;
begin
try
lista:=TstringList.Create;
lista.AddStrings(memo1.Lines);
posicao:=pos(edit1.Text,lista.Text);
if posicao > 0 Then
begin


showmessage('palavra encontrada');
end
else
showmessage('Aviso : Palavra ou Texto Não Localizado')
finally
lista.Free;
end;


aguardo respostas!!!
Responder

Posts

02/03/2016

Rafael Bosco

Tente:

const
  Locate: String = Edit1.text; 
var
  I: System.Integer;
  Found: System.Boolean;
begin
  Found := System.False;

  for I := 0 to Memo.Lines.Count - 1 do
  begin
    if ((Pos(Locate, Memo.Lines[I]) > 0)) then
    begin
      ShowMessage('Palavra encontrada');
      Found := System.True;  // se achou a palavra, acrescenta na variavél para checagem
      System.Break;
    end;
  end;
 
  //se não achou apresenta mensagem  
  if Found = System.False  then
     ShowMessage('Palavra e/ou texto não encontrado');
end;
Responder