Busqueda de texto

[Gerson12]

Empezado por roman

Pues es que así lo tienes en la imagen que pusiste Si quieres sombrear todo entonces así:

Código Delphi [-]
Start := Pos('file:' + Edit.Text + '.exe', Memo.Text);
if Start > 0 then
begin
  Memo.SelStart := Start;
  Memo.SelLength := Length('file:' + Edit.Text + '.exe');
end;

// Saludos

bueno gracias por sus respuesta pero como les dije anterior mente quiero q seleccione todo no solo una parte les dejo mi codigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
hotkey:integer;
begin
hotkey:=Pos('https://www'+Edit1.Text+'.com.pe',memo1.Text);
if hotkey>0 then
 Memo1.SelStart := hotkey;
  Memo1.SelLength := Length('https://www'+Edit1.Text+'.com.pe');
  Memo1.SetFocus;
end;
end.
else
begin
  ShowMessage ('no se encontro nada');