Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-06-2018
Fat Fat is offline
Miembro
 
Registrado: Jul 2006
Posts: 72
Poder: 13
Fat Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 06-06-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.102
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 06-06-2018
Fat Fat is offline
Miembro
 
Registrado: Jul 2006
Posts: 72
Poder: 13
Fat Va por buen camino
Perfecto!!

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

Un saludo.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Encontrar cadena de texto en fichero de texto cozina Varios 4 14-06-2017 12:06:30
Encontrar texto intermedio en un DBGrid Oscar Guzmán OOP 7 19-03-2012 06:36:17
comparar un texto de un listbox con un texto de un edit juaarias Varios 1 04-10-2011 01:13:10
Encontrar un Item en un ListBox esocrates Varios 8 29-04-2006 00:34:12
texto en un MEMO ...encontrar comparar sakuragi OOP 4 27-02-2004 17:24:28


La franja horaria es GMT +2. Ahora son las 08:41:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi