Busqueda de texto

[ecfisa]

Hola.

Tenes razón... entonces proba de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  p: Integer;
begin
  p:= Pos('https://www.' + Edit1.Text + '.com.pe', Memo1.Text);
  if p > 0 then
  begin
    Memo1.SelStart:= p - 1;
    Memo1.SelLength:= Length('https://www.' + Edit1.Text + '.com.pe');
    Memo1.SetFocus;
  end;
end;

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'.

Saludos.