Davit lei tu correo, mira con el codigo ke t di enlazas cada casilla del arreglo a una lista, asi es como enlazas una lista diferente a cada casilla del arreglo:
Tlista = record //registro para el nodo
nombre: string[30];
direccion: string[100];
{etc....}
end;
LMilista = ^Nodo //tu puntero(lista enlazada)
Nodo = record
info:Tlista;
Sig,Ant:LMilista;
end;
Tvectorlista = record //registro ke se convertira en el tipo de tu vector y ke contiene el salto a tu lista
salto:LMilista;
end;
Elementos:Array[1..N] of Tvectorlista; //declaracion del arreglo de n posicion donde cada posicion es de tipo Tvectorlista, y Tvectorlista tiene un salto a tu lista.
Luego declaras una variable de tipo Elementos y un registro de tipo Tlista para la informacion ke tendras ke guardar en cada nodo:
Var
Elementos: Tuarreglo;
Tlista:Turegistro;
Y eso es todo
Última edición por mminorm fecha: 01-06-2005 a las 08:39:05.
|