Pascal/Turbo Pascal - Urg:Crear lista simple desde un archivo.

 
Vista:

Urg:Crear lista simple desde un archivo.

Publicado por Minor (13 intervenciones) el 29/07/2002 07:31:06
Necesito saber como puedo crear una lista simple leyendo los datos desde un archivo *.dat que tengo en mi disco duro.
Muchas gracias.
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:Urg:Crear lista simple desde un archivo.

Publicado por Raymond Calderon (20 intervenciones) el 29/07/2002 08:05:40
Yo lo que hago es que al cargar el archivo lo cargo con los tipos y
a la hora de bajar la in formacion del archivo la bajo con los tipos y luego lleno la lista con la informacion de los tipos ej:

tipo.dato:=ptr^.dato;
reset(archivo);
while not eof(archivo) do
begin
write(archivo,tipo);
end
close(archivo);
(*esto para llenar lel archivo*)
para sacarlo lo hago al reves
lista:=nil;
reset(archivo)
while note of(archivo) do
begin
read(archivo,tipo);
aux^.dato:=tipo.dato;
if lista=nil then
begin
lista:=aux else
end
inicio:=lista;
while lista <> nil do
lista:=lista^.sig
lista:=aux;
lista:=inicio
end

Hay esta mas o menos.. eso te ayudara...
espero que te sirva...





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:Urg:Crear lista simple desde un archivo.

Publicado por Roberto Garcia (128 intervenciones) el 30/07/2002 06:15:22
Otra forma practica es crear un procedimiento para cargar la lista cada vez que lo necesites

procedure cargar_lista(var archivo:tipo_archivo; var p:puntero);
var
aux:puntero;
begin
seek(archivo,0);
while not eof(archivo) do begin
new(aux);
read(archivo,aux^);
insertar(p,aux);
end;
end;

p es la raiz de la lista, y se entiende que tienes creado un procedimiento para insertar nodos a la lista.
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