Busqueda de texto

[Gerson12]

gracias eficsa me salvastes era y disculpa me pudrieses decir como puedo hacer para q no solo seleccione a 1 sino a todos los textos buscados en este caso https.//www.google.com.pe en este caso pondre y paginas iguales a https.//www.google.com.pe y quiero q me seleccione todas y esas paginas me las agrege a un memo si no es mucha molesta me seria de mucha ayuda tu opinion gracias
Pd: a pero estoy usando variables en el codigo o a q te refieres con tu recomendacion:

Pero es claro que a menos que utilices variables en su lugar, siempre estarás limitado a buscar cadenas con el contenido 'https://www.' y '.com.pe'.

[ecfisa]

Hola Gerson12.

Pd: a pero estoy usando variables en el codigo o a q te refieres con tu recomendacion:

Un ejemplo:

Código Delphi [-]
procedure TForm1.SeleccionarTexto(const Prefijo, Texto, Sufijo: string);
var
  p: Integer;
begin
  p:= Pos(Prefijo + Texto + Sufijo, Memo1.Text);
  if p > 0 then
  begin
    Memo1.SelStart:= p - 1;
    Memo1.SelLength:= Length(Prefijo + Texto + Sufijo);
    Memo1.SetFocus;
  end;
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SeleccionarTexto('https://www.', Edit1.Text, '.com.pe');
end;

De ese modo si deseas buscar 'www.', '.com', '.com.es', etc, el procedimiento funcionará igual.

Saludos.

------------------------
Edito: Te pongo otro ejemplo que creo, deja mas en claro la flexibilidad de este modo:

Código Delphi [-]
 
  SeleccionarTexto(edPrefijo.Text, edTexto.Text, edSufijo.Text);

[Gerson12]

ah te referias a eso gracias creia q era otra cosa ^^ porfa ayudame en esta ultima duda porfa
me pudrieses decir como puedo hacer para q no solo seleccione a 1 sino a todos los textos buscados en este caso https.//www.google.com.pe en este caso pondre y paginas iguales a https.//www.google.com.pe y quiero q me seleccione todas y esas paginas me las agrege a un memo

[ecfisa]

Hola Gerson12.

Ya había leido tu inquietud en el mensaje #12, pero no respondí a ese punto, por que al menos a mi, no se me ocurre como realizar múltiples selecciones de texto en un TMemo del modo que venimos tratando.

Tal vez algún otro compañero conozca o se le ocurra la manera de lograrlo y nos eche un poco de luz. Lamento no poder ayudarte en eso...

Saludos.

[Gerson12]

Empezado por ecfisa

Hola Gerson12.

Ya había leido tu inquietud en el mensaje #12, pero no respondí a ese punto, por que al menos a mi, no se me ocurre como realizar múltiples selecciones de texto en un TMemo del modo que venimos tratando.

Tal vez algún otro compañero conozca o se le ocurra la manera de lograrlo y nos eche un poco de luz. Lamento no poder ayudarte en eso...

Saludos.

q lastima gracias entonces seguire buscando en internet algo q me pueda ayudar y gracias y disculpa esta es mi ultima inquietud por q pones el -1 en este codigo

Código Delphi [-]
 memo1.SelStart:=f-1;

Gracias ^^

[ecfisa]

por q pones el -1 en este codigo

Hola Gerson12.

Por que la función Pos devuelve la posición del primer caracter de un string comenzando por la posición 1, pero la propiedad SelStart determina el primer caracter seleccionado a partir de la posición 0.

Saludos.

[Gerson12]

gracias ^^ les agradesco mucho roman,eficsa,[José Luis Garcí] gracias a todos ^^