Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-08-2006
Avatar de anto1178
anto1178 anto1178 is offline
Miembro
 
Registrado: ago 2006
Posts: 10
Poder: 0
anto1178 Va por buen camino
combo box

Hola!
Estoy haciendo una aplicación en Delphi, en la cual tengo un combobox con 2 items (A o B). Lo que debo hacer es pasar lo que el usuario selecciona a un array. Pero no funciona.
Pienso que puede ser que esté tratando con tipos incompatibles (aunque he probado con char y string pero igual no funciona) o seguramente, estoy haciendo mal la definición del array.

Si me podrian explicar como definir un array, se los agradecería, porque estoy confundida si ponerlo en la parte de TYPE o en VAR. Así, voy descartando los posibles errores.

Muchisimas gracias.
Responder Con Cita
  #2  
Antiguo 18-08-2006
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Poder: 20
luisgutierrezb Va por buen camino
porque no mejor pones tu codigo y vemos en que te podemos ayudar? como quiera, a ver si te sirve:
Código Delphi [-]
var
  a_cad: Array[1..100] of String;
Begin
  For i:= 0 to combobox1.Items.ItemCount -1 Do
    a_cad[i] := ComboBox1.Items[i];
end;
con eso haces un arreglo de 100 elementos y le asignas los elementos del combobox
Responder Con Cita
  #3  
Antiguo 18-08-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
el array se puede definir donde más te convenga, si es una variable, pues te obliga a repetir la definición una y otra vez:

Código Delphi [-]
procedure mio;
var A: array [0..100] of string;;
begin 
with Combobox2 do
  if itemindex <> -1 then // si el usuario ha elegido algo:
    A[0] := items[itemindex];

end;

procedure Mio2;
var A:array [0..100] of string;
begin
end;

si es un TYPE es más como de usar;
Código Delphi [-]
type TElegido = array [0..100] of string;

....
procedure mio;
var A: Telegido;
begin 
end;

procedure Mio2;
var A:Telegido;
begin
end;
Como ves, con un TYPE, si tienes que modificar el tamaño del array, solo tienes que cambiarlo en 1 sitio.


Saludos.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #4  
Antiguo 19-08-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
Me respondo yo mismo, en este caso, ajustaría el tamaño del Array dinamicamente, así no desperdiciamos memoria, además, si el combo tiene más de 100 elementos fallaría el programa:
Código Delphi [-]

type TElegido = array of string;
...


var a :TElegido
begin
if combobox1.items.itemcount > 0 then
begin
  setlength(a,combobox1.items.itemcount); // a empezará en cero y el combo igual
  // ahora el bucle de luisgutierrezb
end;

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Combo en BDGrid ? Coco_jac Varios 0 06-12-2005 15:01:00
Añadir a un Combo Box Acker Varios 1 08-11-2005 14:58:07
Combo Box maui Conexión con bases de datos 6 18-05-2004 10:19:07
Combo pablo OOP 1 12-01-2004 19:58:16
Mi Combo y yo vichovi OOP 5 12-06-2003 19:12:28


La franja horaria es GMT +2. Ahora son las 00:59:18.


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
Copyright 1996-2007 Club Delphi