Pila con Listas enlazadas (problema con apuntadores)

[desve]

Estoy trabajando en una pila con listas enlazadas y tengo el siguiente problema

declaro de esta forma la estructura

TNodo=^NodoPila;
NodoPila=RECORD
elemento:integer;
enlace:TNodo;
END;

luego declaro

Cima,AUX:^NodoPila;

para los trabajos de insercion y sacar, etc.


El problema radica en que al al momento de insertar
(este es el codigo)

new(AUX);
AUX^.elemento:=n;
AUX^.enlace:=Cima; <----------- me marca error en esta linea
Cima:=AUX;

lanza un comentario diciendo que son imcompatibles, (supongo que por que uno esta declarado como TNodo y otro Por ^NodoPila).
Entonces para corregir eso yo pensaba era declarar de esta manera para que los tipos de datos sean compatibles, pero el compilador me regresa error. (esto lo habia intentado desde el inicio al declarar la pila pero me lanzaba error, aunque insisto que seria la forma logica de declarar)

NodoPila=RECORD
elemento:integer;
enlace:^NodoPila;
END;

El problema es que al asignar ahi me lanza error y no se de que manera corregirlo, Espero que alguien me pueda ayudar.


Gracias de antemano
(Desve).

[[Lepe]]

Código Delphi [-]
var Cima,AUX:TNodo;

Con esta declaración ya no se queja el compilador.

Por cierto, has visto la ayuda sobre TobjectStack? Implemente una pila mediante objetos, sin tener que usar punteros.

un Saludo

[desve]

No, no habia checado ese objeto, gracias por el tip le echare un ojo, de cualquier manera esto es una tarea y asi fue pedida..

-una cola circular con arreglos estatico.

-pila con listas en lazadas ---- dinamico pauntadores y solicitud de memoria.

-cola listas enlazadas ---- dinamico pauntadores y solicitud de memoria.



y estaba atorado en ese punto., gracias