Busqueda de texto

[Casimiro Noteví]

Otra aclaración:
Sí, te había entendido

[roman]

Sí, yo también te había entendido. Y sí, en este hilo hay más aclaraciones que cosas que aclarar.

// Saludos

[Gerson12]

creo que me veo como un tonto

Tratare de explicarme lo mejor posible
lo q quiero hacer
es una aplicaccion q obtenga texto de un memo y ese texto obtenido lo agregue a un listbox
les dare un ejemplo

supongamos q este texto esta en el memo1:
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilahttp://www.remusica.bizrodolfopetronilarodolfodsfsdfsdf
dpetronilarodolfo
efsdfdspetronilhttp://www.otraweb1.bizarodolfopetronilarodolfo
dsfsdfsdfsdf
sdsf
ds
f
dsfdsfdsfhttp://www.otraweb2.biz

ahora que al presionar el boton1 me agregue los textos q estan dentro es este parametro 'http://'( agregar texto que estee dentro de estos dos )'.biz':
espero q esta ves me hayan entendido y si cumpen si pregunto demasiado =( y roman gracias por tu consejo me guie de una respuesta para otra cosa pero la verdad que como dije antes se poco pero me gustaria aprender mas viendo sus respuesta de ayuda gracias espero que esta ves me entiendan si puedo mas tarde pongo una imagen ya q no tengo delphi ahora .
PD:destino a donde se agregaran los textos extraidos seran un listobox.
Chau!

[ecfisa]

Hola Gerson12.

Ahora creo haber entendido lo que buscas... Es copiar desde un TMemo hacia un TListBox, todos aquellos términos que comiencen en una cadena inicial A y otra final B incluyendo los caracteres que existan en el medio sin importar cuales sea.

Entonces podrías hacer:

Código Delphi [-]
...
uses StrUtils;

procedure Cargar(aMemo: TMemo; const Sufijo, Prefijo: string; TS: TStrings);
var
  p1, p2: Integer;
begin
  p2:=1;
  repeat
    p1:= PosEx(Sufijo, aMemo.Text, p2);
    p2:= PosEx(Prefijo, aMemo.Text, p1+1);
    if p1 <> 0 then
      TS.Add(Copy(aMemo.Text, p1, p2-p1 + Length(Prefijo)));
  until (p1 = 0)or(p1 > p2);
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   Cargar(Memo1, 'http://www.', '.biz',  ListBox1.Items);
end;

Tomando como ejemplo el téxto de tu mensaje anterior, en ListBox1 obtendríamos:

http://www.remusica.biz
http://www.otraweb1.biz
http://www.otraweb2.biz

Saludos.

[Gerson12]

muchas gracias eficsa ^^ me salvastes y gracias a todos por su intencion de ayudar