Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Contenido de un ComboBox (https://www.clubdelphi.com/foros/showthread.php?t=14261)

Ricsato 14-09-2004 23:31:22

Contenido de un ComboBox
 
Hola a todo el Mundo, me gustaria que alguien me dijera como hago referencia al contenido de un combo box, por ejemplo si contiene:

0.- IMSS
1.- ISSSTECALLI
2.- HOSPITAL DE LA MUJER
3.- CLINICA SAN JOSE

y deseo hacer lo siguiente:

if ComboBox.[su contenido] = 0 then
......

Gracias.

jachguate 14-09-2004 23:37:00

Ve sus propiedades:

Items

e

ItemIndex.

Hasta luego.

;)

Ricsato 14-09-2004 23:53:56

Ok, voy de acuerdo, pero como?
 
Mira, lo que pasa es que con una sentencia SQL, quiero hacer un reporte y tomo como base el contenido de un ComboBox, haciendo lo siguiente

Add('Select * From Biopsia');
Add('Where Clinica = ContenidoComboBox');

Es lo que no se expresar con codigo.

Gracias por tu ayuda.
Saludos

jachguate 15-09-2004 00:37:14

Supongamos:

Código SQL [-]
Select *
  from tabla
 where campo = :dato;

Código Delphi [-]
  query1.parambyname('dato').AsString := ComboBox.Items[ComboBox.ItemIndex];
  query1.Open;

Hasta luego.

;)

eduarcol 15-09-2004 03:36:40

Completando lo que dijo jachguate puedes tambien en lugar de:

ComboBox.Items[ComboBox.ItemIndex]

hacer lo siguiente

ComboBox.Text

Asi aseguras que el uuario pueda ecribir una opcion no incluida

ramonibk 15-09-2004 10:52:14

Al hilo del asunto de los ComboBox.

Como podria hacer para que el contenido del comboBox (Items) se carge de un fichero de texto cuando la aplicacion arranca???

Lepe 15-09-2004 13:31:56

Código Delphi [-]

combo.items.SaveToFile('c:\.......\mio.itm');
combo.items.LoadFromFile('c:\.......\mio.itm');

Uso la extension itm para que windows no sepa con qué programa se abre, pero podrías usar un .txt si quieres que el usuario meta sus "zarpas" en él ;).


Saludos


La franja horaria es GMT +2. Ahora son las 18:28:49.

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