Hola, espero que estes bien, disculpa por las molestias pero soy nuevo
usando delphi y queria pedirte una ayuda es sobre asignacion de
delphi.
pasa que tengo estas definiciones:
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 jfer_net***hotmail.com

jfer escribió:
> Hola, espero que estes bien, disculpa por las molestias pero soy nuevo
> usando delphi y queria pedirte una ayuda es sobre asignacion de
> delphi.
> pasa que tengo estas definiciones:
> 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 jfer_net***hotmail.com


Si no especificas los errores que te da no nos lo pones facil

Lug:= Nod^.Elem;
Aqui es obvio que es un problema de tipos diferentes 'Lug' es del tipo
'Tlugar' y 'Nod^.Elem' hace referencia a un TObject.


Saludos

jfer escribió:
> Hola, espero que estes bien, disculpa por las molestias pero soy nuevo
> usando delphi y queria pedirte una ayuda es sobre asignacion de
> delphi.
> pasa que tengo estas definiciones:
> 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 jfer_net***hotmail.com


Si no especificas los errores que te da no nos lo pones facil

Lug:= Nod^.Elem;
Aqui es obvio que es un problema de tipos diferentes 'Lug' es del tipo
'Tlugar' y 'Nod^.Elem' hace referencia a un TObject.


Saludos

jfer escribió:
> Hola, espero que estes bien, disculpa por las molestias pero soy nuevo
> usando delphi y queria pedirte una ayuda es sobre asignacion de
> delphi.
> pasa que tengo estas definiciones:
> 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 jfer_net***hotmail.com


Si no especificas los errores que te da no nos lo pones facil

Lug:= Nod^.Elem;
Aqui es obvio que es un problema de tipos diferentes 'Lug' es del tipo
'Tlugar' y 'Nod^.Elem' hace referencia a un TObject.


Saludos