Encontrar texto en Listbox
 

Buenas,

Mi duda es la siguiente:

Tengo un listbox en el cual tengo la una cadena de este tipo
aaa: bbbb (ccccc)
dd: eee (fffff)
Necesito obtener la cadena que se encuentra entre : y el ( es decir bbbb o eee según el item seleccionado.

Gracias a todos de antemano por su tiempo.

Un saludo.

Hola.

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

function GetPieceOfItem(LB: TListBox): string;
var
  p1, p2: Integer;
begin
  Result := LB.Items[LB.ItemIndex];
  p1     := Pos(':', Result) + 1;
  p2     := PosEx('(', Result, p1);
  Result := Copy(Result, p1, p2 - p1);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ShowMessage(GetPieceOfItem(ListBox1));
end;

Saludos :)

Perfecto!!

Un millón de gracias por el tiempo y la solución.

Un saludo.