Pascal/Turbo Pascal - Problema con archivo con tipo

 
Vista:

Problema con archivo con tipo

Publicado por Piojoman (1 intervención) el 09/03/2006 13:44:55
Hola estoy haciendo un trabajo con pascal donde manejo archivos con tipo y me trae un problemon....

Primero hice dos Procedure uno que guarda todas las variables del programa y otra que las carga. Todo funciona bien con las variables, pero cuando quiero almacenar la info de una lista enlazada tengo problemas, para cargar los datos funciona pero estoy fallando al guardar la lista.

Procedure Guardar;
Type.....
begin
Assign (Arch, 'C:\lalala.xyz');
{$I-}
Reset
{$I+}

If IOResult <0> then
begin
Rewrite(Arch);
Reset(Arch);
end;

Arch2.Nombre := NombreSTR; {Variable comun}
Arch2.Edad := EdadINT; {Variable comun}
Write(Arch,Arch2); {Pongo este Write aca porque lo de abajo tiene menos variables a usar}

J:= Ficha^.Sig
While J <> Nil do
begin
Arch2.Diferencia:= J^.Dif; {}
J:= J^.Sig;
Write(Arch,Arch2);
end;
end;

Asi supongo yo por lo que entiendo de teoria, pero no funciona guarda algo pero cualquier valor, estas son algunas var pero son muchas, los type no los puse porque no importan, yo quisiera saber como paso un valor de la lista enlazada al archivo, o sea asi...

ASi quisiera que queda
Pablo {Nombre}
19 {Edad}
10 {Diferencia} --> esde la lista enlazada
5{Diferencia2} --> esde la lista enlazada
6{Diferencia3} --> esde la lista enlazada
Nil
Ayuda!!!! es urgente!!!!!...
Gracias de antemano!!!.
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