Visual Basic - Recorrer arrays dinamicos

Life is soft - evento anual de software empresarial
 
Vista:

Recorrer arrays dinamicos

Publicado por Alfonso (103 intervenciones) el 10/11/2005 01:16:10
Hola a todos/as. Se que para recorrer un array dinamico uso LBound y Ubound, pero si utilizo esto y el array no tiene ningun elemento me da un error, ¿como puedo comprobar si existen datos en el array dinamico?

Ejemplo:

Estoy haciendo una agenda de telefonos (array dinamico) en el que almaceno lo siguiente:

Private Type Contenido
nombre As String 'Aqui almaceno el nombre de la persona
num_tlf As Integer 'Aqui almaceno el numero de telefono
hijos() As String 'Array dinamico en el que almaceno el nombre de cada hijo
End Type 'en cada posicion del array. Ej: la persona tiene dos hijos, en
'la 1ª posicion almaceno pedro y en la 2ª posicion sonia.

Private Agenda() As Contenido 'Array dinamico para almacenar la agenda de tlf.

Supongamos que tengo la agenda cargada y quiero recorrerla, para buscar si Andres (persona almacenada en la agenda) tiene un hijo que se llama Juan pero resulta que andres no tiene hijos, o sea, el array dinamico de los hijos no tiene ninguna posicion, asi que al intentar recorrerlo me da error.

for i = Lbound(Agenda) To Ubound(Agenda)
If Agenda(i).nombre = "Andres" then
for j = Lbound(Agenda(i).hijos) To Ubound(Agenda(i).hijos)
'Me daria error porque el array dinamico de hijos de andres no contiene nada

En definitiva:
¿Como puedo comprobar si existen o no datos validos en un array dinamico?
GRACIASSSSSSSSSSSS!!!!!!!!!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder