Pascal/Turbo Pascal - Sacar nodo de lista

   
Vista:

Sacar nodo de lista

Publicado por mario (1 intervención) el 26/10/2007 03:00:30
¿Está bien este procedimiento para sacar el nodo de una lista?

Procedure Suprime_Nodo_Lista(var lista:tipolista;var rinfo:tipoinfo);

var ptraux,ptrsig:tipolista;

begin

ptraux:=lista;

ptrsig:=ptraux^sgte;

lista:=ptrsig;

rinfo:=ptraux^.info;

dispose(ptraux)

end;

bue me gustaría saber si está bien o no, un saludo.
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

RE:Sacar nodo de lista

Publicado por yolmer rosales (10 intervenciones) el 27/10/2007 23:18:53
yo lo veo bien pero esta rebuscado hay un par de cosas que te puedo comentar
primero no saca cualquier nodo solo el primero por lo que recuerda mas bien una pila.
digo que está rebuscado porque lo que haces es "lees el nodo y luego liberas la memoria" esto lo puedes hacer con una sola variable aux ejm:

Procedure Suprime_Nodo_Lista(var lista:tipolista;var rinfo:tipoinfo);

var ptraux :tiplista;

begin
ptraux := lista;
lista := lista^.sgte;
rinfo := ptraux^.info;
dispose(ptraux)
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sacar nodo de lista

Publicado por mario (1 intervención) el 28/10/2007 00:55:32
Pero esto es para pilas solamente o puede servir para una lista también????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sacar nodo de lista

Publicado por rodrigo (1 intervención) el 25/03/2008 20:37:30
en verdad tu wea es mala osea loki que ondi como pobre estar en un foro de pascal??? que onda lokito
en vrdd eres como el suil algun dia te dare el mail de ese loko para que converses sobre pascal adios pobre wn
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar