Hola, disculpen pero como puedo recorrer un listbox y pasar los valores a un arreglo?, esto es lo que tengo... :huh:
Dim arreglo(100) As Integer
Dim l As Integer
Dim n As Integer
Dim valor As Integer
For l = 0 To List1.ListCount - 1
valor = List1.Text
For n = 1 To List1.ListCount - 1
arreglo(n) = valor
Next
Next
'Por ultimo coloque unos textbox para confirmar que se guardaron los valores
Text1.Text = arreglo(1) 'me sale 0 y en realidad es un 2
Text2.Text = arreglo(2) 'me sale 0 y en realidad es un 4
Text3.Text = arreglo(3) 'me sale 0 y en realidad es un 1
For i = 0 To List1.ListCount - 1
arreglo(i) = list1.list(i)
Next
Dim Arreglo() As Integer
Dim N As Integer
ReDim Arreglo(List1.ListCount - 1)
For N = 0 To List1.ListCount - 1
Arreglo(N) = List1.List(N)
Next
MsgBox Arreglo(0): MsgBox Arreglo(1): MsgBox Arreglo(2)
:-*
Funcionan, muchas gracias!!! :D
No es un ListBox pero para el caso por ejemplo de varios Editbox como una array conseguir que los objetos de un formulario tipo TEdit en mi caso estoy usando ,C++ builder xe, me los reconociera como una array. No lo conseguido y he buscado bastante (Creo que no se puede). Pero lo que SI HE CONSEGUIDO es pasar la información de estos objetos a una array creada tipo TEdit y luego pasarlos a una array tipo AnsiString y la vedad que de manera bastante fácil.
1º /*Declaramos los arreglos tanto tipo AnsiString como de tipo TEdit. La TEdit esta al llevar puntero tipo Text, hay que declararla dínamica mas otro puntero (con doble puntero). */
AnsiString *Nombres=new AnsiString[10];
TEdit **Edit=new TEdit*[10];
En el programa form los nombres de los TEdit están puestos como desde el Edit0 hasta Edit9
2º /*Pasamos los datos de los Editbox a la array Tedit** Edit con un button lo llamé IntroducirDatos con la ayuda de la función FindComponent() */
void __fastcall TForm3::IntroducirDatosClick(TObject *Sender)
{
for (int n=0; n<ComponentCount; n++) {
Edit[n] = static_cast<TEdit*>(FindComponent("Edit"+IntToStr(n)));
}
}
3 /* Pasé los datos de la array Tedit a la array dinámica AnsiString *Nombres con otro button que lo llamé MostrarDatos */
void __fastcall TForm3::MostrarDatosClick(TObject *Sender)
{
for (int n=0; n<10; n++) {
Nombres[n]=Edit[n]->Text;
}
ShowMessage(Nombres[8]);
}
Le agregué un mensaje para verificar que se transferían bien los datos a Nombres.