Foros Club Delphi - Una dudilla con TComboBox...

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Una dudilla con TComboBox... (https://www.clubdelphi.com/foros/showthread.php?t=42019)

Una dudilla con TComboBox...

Buenas a todos, tengo una duda muy tonta pero con la que me estoy voviendo loco y no encuentro respuesta buscando en el foro, en un CxComboBox meto lo siguiente:

Código:

 

CBTipoPago.Properties.Items.AddObject('Efectivo', TString.Create('1'));

CBTipoPago.Properties.Items.AddObject('Tarjeta', TString.Create('2'));

TString es una clase que he creado que hereda de TObject y que simplemente guarda un String.

Esto lo he hecho para tener el nombre que quiero mostrar más la clave que es la que voy a usar.

Y ahora la pregunta tonta...Como recupero el valor del TObject que he guardado en el TStrings, es decir el valor de la clave que es el que me interesa...

Un saludo.

No uso el cxCombobox, pero debe tener una propiedad Objects[i].

Por otro lado tu TString, debe tener una propiedad o variable para poder leer ese string. Más o menos sería así:

Código Delphi [-]TSTring(cxCombo.Properties.Objects[i])).propiedadDelTStringParaLeerElString

o bien:

TSTring(cxCombo.Properties.Items[i].Object)).propiedadDelTStringParaLeerElString

Deberás buscar la propiedad Object a vern donde está, si en properties, Items, o una que se llame Objects a secas.

Saludos

Muchas gracias Lepe, lo acabo de probar y en efecto es así:

TString (CBTipoPrecio.Properties.Items.Objects[CBTipoPrecio.ItemIndex]).Texto;

Un saludo.