Busqueda de texto

[roman]

No estoy seguro de entender pero vamos a ver. Si quieres buscar lo que está en el edit dentro del memo, sólo tendrías que poner:

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

Pero si quieres buscar el texto del edit pero sólo si está con el texto predeterminado, puedes concatenar dicho texto al momento de buscar:

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

// Saludos

[Gerson12]

Empezado por roman

No estoy seguro de entender pero vamos a ver. Si quieres buscar lo que está en el edit dentro del memo, sólo tendrías que poner:

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

Pero si quieres buscar el texto del edit pero sólo si está con el texto predeterminado, puedes concatenar dicho texto al momento de buscar:

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

// Saludos

gracias por la respuesta lo provare pero antes disculpame pero otra pregunta
como haria para agregar a otro memo el texto seleccionado por la busqueda

[roman]

Podrías agregarlo como una nueva línea:

Código Delphi [-]
OtroMemo.Lines.Add(Edit.Text);

// Saludos

[Gerson12]

roman disculpa pero el codigo q me enseñas no me soombrea todo lo q quiero solo me sombre lo q esta en el edit lo q yo quiero es sobrear todo incluyendo file: y .exe

[[José Luis Garcí]]

Gerson12, si lo que vas a introducir es la ruta completa, tendrias que modificar sólo al código que te expuso Román lo siguiente

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

En caso contrario te indico que es mejor que crees un tabla en memoria carges los datos y busques con un like en Sql.

Esper te sirva de algo la ayuda

[roman]

Empezado por Gerson12

roman disculpa pero el codigo q me enseñas no me soombrea todo lo q quiero solo me sombre lo q esta en el edit lo q yo quiero es sobrear todo incluyendo file: y .exe

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

[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');

[ecfisa]

Hola Gerson12.

A ver si entendí lo que buscas...

Supongamos que en Edit tenemos el texto:

Un_Nombre_De_Pagina

En el Memo el siguiente texto:

...
bla, bla, bla ...
bla, bla, ... https://www.Un_Nombre_De_Pagina.com.pe , bla, ..., etc
bla,bla,bla
...

Y queres que quede seleccionada la cadena "https://www.Un_Nombre_De_Pagina.com.pe".

Si no me equivoque, creo que podrías hacer:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  pd, ph: Integer;
begin
  pd:= Pos('https://www.' + Edit1.Text + '.com.pe', Memo1.Text);
  if pd > 0 then
  begin
    ph:= pd;
    Memo1.SelStart:= ph-1;
    while not(Memo1.Text[ph] in [#13,' ']) and (ph < Length(Memo1.Text)) do
      inc(ph);
    Memo1.SelLength:= ph - pd;
    Memo1.SetFocus;
  end;
end;

Saludos.