Fórum Procurar uma palavra em um Memo ou RichEdit ??? #286096

if Memo1.Lines.IndexOf(edit1.Text)>0 Then
  showmessage(´Tem´)
else
  Showmessage(´Não tem´);

if RichEdit1.Lines.IndexOf(edit1.text)>0 Then
  showmessage(´Tem´)
else
  Showmessage(´Não tem´);

if Memo1.Lines.IndexOf(edit1.Text)>-1Then 
  showmessage(´Tem´) 
else 
  Showmessage(´Não tem´);

if RichEdit1.Lines.IndexOf(edit1.text)>0 Then 
  showmessage(´Tem´) 
else 
  Showmessage(´Não tem´);

if Memo1.Lines.IndexOf(edit1.Text)>-1Then 
  showmessage(´Tem´) 
else 
  Showmessage(´Não tem´);

if RichEdit1.Lines.IndexOf(edit1.text)>-1 Then 
  showmessage(´Tem´) 
else 
  Showmessage(´Não tem´);

function AcharPalavraNoMemo(Memo:TMemo;palavra:String;var i:Integer):boolean;
var
 posicao:Integer;
 Frase:String;
 TextoAux:String;

begin
result:=False;
i:=0;
 while i <= Memo.Lines.Count -1 do
   begin
     Frase:=Memo.Lines.Strings[i];
     posicao:=1;
     TextoAux:=´´;
     while posicao <= Length(Frase) do
       begin
         if Frase[posicao] <> ´ ´ Then
           begin
             TextoAux:=TextoAux+Frase[posicao];
             posicao:=Posicao+1;
           end
         else
           begin
             if TextoAux = palavra Then
               begin
                 result:=true;
                 exit;
               end
             else
               begin
                 textoAux:=´´;
                 Posicao:=Posicao+1;
               end;
           end;
       end;
     if TextoAux = palavra Then
       begin
         result:=true;
         exit;
       end;
     i:=i+1;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
if AcharPalavraNoMemo(Memo1,edit1.text,i) then
  begin
   showmessage(´Palavra encontrada´);
   Memo1.SetFocus;
   memo1.Lines.Strings[i];
   end
  else
    showmessage(´Palavra não encontrada´);
end;