Convertir valores int de un campo a varchar

[davidmedina29]

buenas tardes tengo un cxcombobox que tiene los meses de enero a diciembre

lo que quiero es que cuando guarde me lo guarde en numero del 1 al 12 segun el mes
alguna sugerencia?

[roman]

Aunque cxcombobox no es un control estándar de delphi, debe ser similar a un combobox, el cuál tiene una propiedad ItemIndex que indica el índice del elemento seleccionado. Este índice es el que tendrías que guardar (0 - enero, 1 - febrero, 2 - marzo, etc.) Si lo quieres basado en 1, sólo tienes que sumar 1 a ItemIndex.

LineComment Saludos

[[AgustinOrtu]]

Otra vez repitiendo hilos??

La respuesta de ecfisa te debería servir perfectamente

[Casimiro Notevi]

Empezado por davidmedina29

buenas tardes

Buenas tardes, y deja de repetir hilos, gracias

[davidmedina29]

buen dia compañeros, pues le e buscado y no e encontrado la solucion ya proble con lo que me compartio ecfisa lo plantie asi:

Código Delphi [-]
procedure TfPeriodosNominaNvo.cxComboBox2PropertiesChange(Sender: TObject);
var
  ID: Integer;
begin
  if cxComboBox2.ItemIndex <> -1  then
  MSQuery1.FieldByName('MES').Value := cxComboBox2.ItemIndex +1;
end;

y nada me digue marcando este error

'05 mayo' is not a valid integer value for field 'MES'


mi cxcomboboox tiene los siguientes items:
01 Enero
02 Febrero
03 Marzo
04 Abril
05 Mayo
06 Junio
07 Julio
08 Agosto
09 Septiembre
10 Octubre
11 Noviembre
12 Diciembre

aqui les dejo tmbien la interfaz del sistema con el error:
Captura_converted.png

cualquier aporte se los agradeceria compañeros.. saludos.

[davidmedina29]

la variable :

Código Delphi [-]
ID: Integer;

es de otro ejemplo que tenia ahi pero no me funciono se me paso quitarla.

[[AgustinOrtu]]

La excepcion se produce en el evento cxComboBox2PropertiesChange o en otro lado?

[davidmedina29]

Hola AgustinOrtu
no tengo alguna excepcion solo el codigo que puse arriba lo tengo en el evento propertiesChange

saludos

[[AgustinOrtu]]

Solamente podemos adivinar

Ese error no te puede aparecer en ese evento, ya que seria una contradicción

Código Delphi [-]
  if cxComboBox2.ItemIndex <> -1 then
  ...

Con esa linea se puede deducir que cxComboBox2.ItemIndex es un ordinal, presuntamente de tipo Integer; si fuera string Delphi no te dejaria compararlo contra -1. Y recordemos que Delphi es fuertemente tipificado

Por lo tanto, si la siguiente linea dice:

Código Delphi [-]
  MSQuery1.FieldByName('MES').Value := cxComboBox2.ItemIndex +1;

Estas asignando un Ordinal (Integer, Word, Byte, etc) al campo MES

Por lo tanto es imposible que salga un error:

'05 mayo' is not a valid integer value for field 'MES'

Yo creo que hay algo que te falta mostrarnos.

No tendras algun codigo que asigne valores a los campos y luego haga Post?
No estaras usando algun componente Query/Command para enviar un Insert o Update?
No tendras conectado componentes mediante propiedades DataSource?