FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Encontrar un Item en un ListBox
Un saludo a todos,
Necesito ayuda con este código: Tengo en un Form un ListBox, un Botton y un Edit. Quiero recorrer el ListBox y si se encuentra determinado Item que se escriba un mensaje en el Edit. Supongamos que el Item es 'Pepe' y se encuentra en el ListBox Intento esto y no pasa nada:
Desde ya muchas gracias |
#2
|
||||
|
||||
no creo que sea necesario... ya que lo estas filtrando desde el ciclo for; si no tiene elementos no se ejecuta el ciclo.
__________________
|
#3
|
|||
|
|||
Muchas gracias ContraVeneno;
Lo resolví de este modo:
Un saludo |
#5
|
||||
|
||||
Hola, no necesitas poner esos begins despues del if, ya que solo son necesarios cuando debajo del if hay mas de una instrucción. Además en este caso es mejor utilizar un repeat o en todo caso un while en lugar de un bucle for, porque este último te va a recorrer todo el ListBox siempre, y si la cadena la encuentra, por ejemplo, en la segunda linea no necesita seguir recorriendolo.
Bytes... |
#6
|
||||
|
||||
Cita:
No conocía esa función, igual no creo que compile la linea Edt1.Text := 'Encontrado'; |
#7
|
||||
|
||||
Ojo:
Antes de comenzar el repeat hay que verificar que el list box no esté vacío. // Saludos |
#8
|
||||
|
||||
Cita:
// Saludos |
#9
|
|||
|
|||
Muchas gracias roman y sotrono.
Cada una de las soluciones que me han dado me ha enseñado algo nuevo. Un saludo |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Deshabilitar un item de un radiogroup... | Chente(rMan) | OOP | 7 | 03-01-2013 18:00:45 |
sobre listbox y acceso a un item en particular | federiconqn21 | Varios | 9 | 01-03-2007 10:22:49 |
Item de TMeinmenu a la derecha | ranaya | Varios | 2 | 29-10-2005 22:52:56 |
añadir item a listbox | Cosgaya | Varios | 1 | 10-06-2005 01:33:32 |
ListBox detectar uando sale un item y cuando entra | kakesoft | OOP | 6 | 01-05-2005 11:07:00 |
|