Arreglo y Listas Enlazadas

[davitcito]

Saludos muchachos, tengo un problemilla, y es que no se como podría implementar un arreglo en el cual cada casilla de este arreglo contenga una lista enlazada. Por ejm, tengo este problema,
"Crear un arreglo de clientes en el cual cada casilla contenga una lista enlazada de acuerdo al servicio que se le presta (Telefono Fijo, Telefono Móvil, Cable). Además, c/u tiene sus atributos cód de servicio, nombre del titular, monto a pagar y descuento"
Bueno, espero me puedan ayudar, saludos.

[[Lepe]]

¿Puedes usar TobjectList??

Código Delphi [-]
var p : array [0..100] of TobjectList

Si puedes hacerlo así, busca por el foro el colega TobjectList

Si no puedes, tendrás que hacerlo todo a mano:

Código Delphi [-]
var p : array [0..100] of Pointer

Y ahora andar creando la lista enlazada a golpe de New(nuevaVariable);

Un saludo

[davitcito]

Claro de esto ultimo se trata, hacerlo un arreglo de nodos, y que de cada nodo salga una lista enlazada. Lo q no entiendo muy bien es como enlazar los nodos del arreglo con sus listas enlazadas.

EDIT: Comenzar con este encabezado sería factible?

interface
type
pServicios = ^nodoServicios;
nodoServicios = record
info: string;
pSig: pServicios;
end;
cClientes = Class
pClientes: Array[1..100] of pServicios;
inicio: pServicios;
Constructor Crea;

[[Crandel]]

Hola davitcito,

usa el estilo Delphi, para que tu codigo se entienda mejor.

Te recomendaria usa el TList, para no limitarte al numero de servicios. Puedes hacer algo asi:

Código Delphi [-]
type

  nodoServicios = record
    nombre: string;
    masinfo: string;
  end;
  pServicios = ^nodoServicios;

  Servicios: TList;   // o TThreadList;

luego para crear la lista o ingresar usuarios, haces:

Código Delphi [-]

var
  Servicio: pServicios
begin
  new(Servicio);
  Servicio.info := "algo";
  Servicio.masinfo := "algo mas";
  Servicios.Add(Servicio);

lo mismo puedes hacer con la lista de clientes, en donde uno de los atributos es la lista de servicios.

En realidad, el TThreadList lo podes usar para la lista de clientes y el TList para la lista de servicios

Suerte

[davitcito]

Gracias por el dato, el problema es q aun no usamos el TList, por lo q no entiendo muy bien como funciona, mas bien mi pregunta va a como puedo unir el arreglo de nodos (cada elemento) con una lista enlazada. Es decir, cual sería el código a usar. Espero me ayuden. Gracias.

[davitcito]

Gracias por el dato, el problema es q aun no usamos el TList, por lo q no entiendo muy bien como funciona, mas bien mi pregunta va a como puedo unir el arreglo de nodos (cada elemento) con una lista enlazada. Es decir, cual sería el código a usar. Espero me ayuden. Gracias.

[[Crandel]]

muy parecido:

Los servicios declaralos como vos decias

Código Delphi [-]
Servicios: Array[1..100] of pServicios;

en mi ejemplo reemplazá el Servicios.Add(Servicio); por

Código Delphi [-]
Servicios[1]= Servicio;

suerte