ayuda con la asignacion de objetos

[jfer]

bueno el problema es el mismo que dije ante pero esta ves puse el codigo en el archivo adjunto


PNodo= ^TNodo;
TNodo = record
Elem: TObject;
Suce: PNodo;
Pred: PNodo;
end;
TLista = class
Tam: word;
Prim: PNodo;
Ulti: PNodo;
constructor NewLista;
procedure InserInicio( n: PNodo);
function TomarPrim(): PNodo;
{y otros metodos}
end;

TLugar = class
Xpos, Ypos: Integer;
Tam: Integer;
Color: Byte;
Nombre: String[LongNom] ;
Tipo: Integer;
ColorMa: Byte;
Marca: LongInt;
MarcaVieja: LongInt;
Timing: Boolean;
procedure IniLug(Xp,Yp, Taman:Integer; Col,ColMa:Byte; Mar:LongInt; Nom:String; Tip:Integer) ;
end;

y cuando ago algo como esto

var
Nod: Pnodo;
Lug: Tlugar;
Lis: TLista;
begin
Lug:= TLugar.create;
Lug.IniLug(' bueno aca van todos los parametros') ;
New(Nod);
Nod^.elem:= lug;
Lis:= TLista.NewLista;
Lis.InserInicio( Nod); //hasta aca va todo bien
.
.
. //hasta aqui

nod:= Lis.TomarPrim;
Lug:= Nod^.Elem;

me salen errores que no se como solucionarlo y si o si tengo que hacer esta asignacio, si vos sabes que es lo que esta ocurriendo me podrias explicar como solucionarlo o que es lo que tengo que hacer.
Desde ya muchas gracias. mi correo es [email protected]

[[maeyanes]]

Hola...

Te recuerdo e insisto que leas la Guía de Estilo de los foros (el enlace está arriba)... también recuerda que existen las etiquetas [ delphi ] [ /delphi ] (sin los espacios en blanco) para publicar código fuente en Delphi.

Sobre tus dudas, pues, si no nos indicas exactamente que errores son los que obtienes, no podemos hacer gran cosa, mira que no somos adivinos...

Y por último, aquí no damos ayuda o soporte vía correo electrónico. Cuando ayudamos a alguien lo hacemos por este mismo medio para que los demás saquen provecho de las soluciones...


Saludos...

[[Delphius]]

jfer, ¿Porqué no seguiste en el otro hilo?
Ahora en que hilo continuamos la conversación... ¿aquí o en el otro?.

Estoy con maeyanes, date una leída a la guia de estilo.

Saludos,

[roman]

Ya he combinado los dos temas.

// Saludos

[jfer]

hola de nuevo, sigamos en este hilo, gracias