Programación General > Delphi

 Buscar Cadenas En Un Memo

(1/1)

VeRaCrUzAnItO-10-:
Hola,

Existe alguna funcion en delphi que me ayude a buscar una cadena en un memo?

Saludos.

Isnel:
Puedes usar Pos


--- Código: Text ---function Pos(Substr: string; S: string): Integer; 
Esta función devuelve la posición de la primera ocurrencia de Substr dentro de S.
También puedes usar StrPos


--- Código: Text ---function StrPos(const Substr, S: PChar): PChar; 
Esta función devuelve un puntero a la primera ocurrencia de Substr de S.

Puedes pasar la propiedad Text de TMemo como el parámetro S en estas funciones

Ejemplo:
Agrega un TMemo a una forma y adicionale texto, agregale a la forma un TEdit y un TButton y en el OnClick evento del TButton poner


--- Código: Text --- procedure TForm1.Button1Click(Sender: TObject);begin  Memo1.SelStart := Pos(Edit1.Text, Memo1.Text)-1;  Memo1.SelLength := Length(Edit1.Text);  Memo1.SetFocus;end;  
Ejecuta la aplicación y escribe algun fragmento de texto en el TEdit y presiona el botón, si encuentra el texto en el TMemo, lo seleccionará.

Espero que te sirva

VeRaCrUzAnItO-10-:
wow!, gracias, esta muy bueno ese tip, voy a probarlo y te digo q tal me resulto, muchas gracias, se muy práctico eso q pusiste!.

Gracias!.

Enko:
solo por curiosidad.....
la funcion pos, toma en cuanta mayúsculas y minúsculas?

Navegación

[0] Índice de Mensajes