Localizar memo em outro memo

[fgefgeggef 0]

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

 

 

Enviada: 14 Jan 2016 19:25 Assunto: Ajuda Localizar memo em outro memo 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 :

 

Código: TESTE AE AB AC AD AE AG TESTANDO

 

 

Memo 2

 

Código:

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 ajuda!

[SBits 1]

O codigo é o mesmo,basta alterar 'edit1.text' por 'memo1(ou 2).lines.text'.

Code:

 var
  lista:TstringList;
  posicao:integer;
 begin
  try
   lista:=TstringList.Create;
   lista.AddStrings(memo1.Lines);
   posicao:=pos(memo2.Lines.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;

@Editado

Depois de meia hora pra tentar entender oque queres fazer,ainda não consegui,poderia explicar melhor ?

[fgefgeggef 0]

Vou explicar, eu quero fazer pesquisa por exemplo o memo 1 pesquisar no memo 2 porém ele vai ter varias strings... no caso tinha q percorrer pra procurar e achar ;x... com memo2.Lines.text n resolve...