Pesquisa memo1 para memo2

[fgefgeggef 0]

Bom dia,

 

bom estou com um probleminha porém estava testando varios códigos e o mesmo de sempre pesquisa com edit1 no memo...

porém eu quero o seguinte se caso vocês poderem me ajudar, vou tentar explicar rsrsrs

 

tenho memo1 e nele contém o seguinte texto :

 

forumimaters1

forumimaters2

forumimaters3

forumimaters4

forumimaters5

FLUMINENSE

e no memo2 tenho o seguinte texto :

teste

teste2

teste3

FLUMINENSE

teste4

teste5

o seguinte vamo supor que no memo 1 tenha "FLUMINENSE" e no memo 2 também se caso no memo1 tiver fluminense ele ira pesquisar no memo2 para ve se tem fluminense também.

se caso ele achou ele da como "achou" vamo supor..

 

bom acho que e isso obrigado e aguardo.

[wllf 2]

Colega você monta um loop for para o primeiro memo e outro para o segundo, dentro do primeiro loop, assim e ele vai checar a primeira linha do memo1 e checar todas do memo2, depois ele passa para segunda linha do memo1 e assim por diante, claro tudo isso você pode disparar de um botão.

[fgefgeggef 0]

você poderia me passar um exemplo?

[wllf 2]

Vai ai um código bem grotesco, motei rapidinho só para ilustrar, usei esse código no evento OnClick de um botão:

 

var

i, c : integer;

s : string;

 

begin

i := 0;

c := 0;

while i <= mm1.Lines.Count do

begin

s := '';

s := mm1.Lines.Strings;

 

while c < mm2.Lines.Count -1 do

begin

if mm2.Lines.Strings[c] = s then

begin

ShowMessage('Achei ' + s);

end;

Inc©;

end;

 

c := 0;

inc(i);

 

end;

end;