Busqueda de texto

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