Yo reorganizaba las cosas un poquito, No sé si os gustará.
Código Delphi [-]
type
pNodo = ^Nodo Nodo = record
OtraInformacion:String[255];
Sig,AntNodo;
end;
TCliente = record Lista Nodo;//aqui tenemos ya el puntero.
nombre: string[30];
direccion: string[100];
end;
TvectorCliente = Array[1..N] of TCliente;
Para acceder:
Código Delphi [-]
var vector:TvectorCliente;
begin
vector[1].nombre := 'pepe';
new(vector[1].Lista); vector[1].Lista^.OtraInformacion := ' pues eso';
new(vector[1].Lista^.Sig); end;
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Lepe fecha: 01-06-2005 a las 10:27:13.
|