Buscar en un memo

[Vlady]

he buscado en el foro y no encuentro la solución por eso este hilo, necesito si es q existe una función q busque una cadena de caracteres determinada en un memo, no se si esta función existe o se debe hacer en un ciclo for linea por linea

[[eduarcol]]

el memo a fin de cuentas es un texto, podrias hacer algo como:

Código Delphi [-]
if Pos('Lo que busco', Memo1.Text) > 0 then
   ShowMessage('Pues mira que si esta');

[[xEsk]]

Puedes usar la funcion Pos.

Ejemplo:

Código Delphi [-]
if pos('a buscar', memo1.text) > -1 then
  // encontrada cadena de texto...

Luego puedes mejorarlo, usando la funcion PosEx.

Pero creo recordar, que el TMemo o TRichEdit tiene una funcion para buscar, pero no te lo puedo asegurar porque no tengo el Delphi a mano :S

Saludos

Edito: Se me adelanto eduarcol, xD

[jusnjosesch]

Prueba con esto busca y busca siguiente;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var
    Posicion:longint;
    Cadena:string;
    nCont,band,lpos:integer;
begin
Lpos := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
if lpos > 0 then  lpos:= lpos + 1;
  Cadena:=edit1.Text;
   band:=0;
  For nCont:=Lpos to memo1.Lines.Count -1  do
    begin
     if pos((cadena),(memo1.lines[nCont])) > 0 then
     begin
      Posicion:=pos((cadena),(Memo1.lines[nCont]))-1;
      memo1.SelStart:= posicion+Memo1.Perform(EM_LINEINDEX, ncont, 0);
      memo1.SelLength:=Length(cadena);
      memo1.SetFocus;
      band:= 1;
      break;
    end;
  end;
if band=0 then showmessage('no se encuenta '+cadena);

end;

suerte