Esto:<br><br>Index:=Integer(cboTipo.Items.Objects[cboTipo.ItemIndex]);<br><br>Convierte a integer la direccion de memoria que retorna cboTipo.Items.Objects[cboTipo.ItemIndex]<br><br>Saludos.<br><br><div class="gmail_quote">
El 14 de junio de 2010 14:41, José Mejuto <span dir="ltr"><<a href="mailto:joshyfun@gmail.com">joshyfun@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Hello Paola,<br>
<div class="im"><br>
Monday, June 14, 2010, 7:06:00 PM, you wrote:<br>
<br>
>> asegurarte manualmente de crearla y liberarla. Resumiendo, más fácil<br>
>> con un TStringList.<br>
</div>PB> suponiendo que el ejemplo es este;<br>
PB>   cboTipo.Items.AddObject('Contado', TObject(1));<br>
PB>   cboTipo.Items.AddObject('Credito', TObject(2));<br>
PB> cómo obtengo el 1 o el 2?<br>
<br>
No estoy seguro 100% de memoria, pero creo recordar que sería:<br>
<br>
Index:=Integer(cboTipo.Items.Objects[cboTipo.ItemIndex]);<br>
<br>
Nos daría el índice del actual (siempre que esté seleccionado uno<br>
claro).<br>
<br>
--<br>
Best regards,<br>
<font color="#888888"> José<br>
</font><div><div></div><div class="h5"><br>
<br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Carlos Germán Tejero<br>