ayuda para leer de un archivo de tipos
Publicado por Diana (1 intervención) el 13/05/2001 17:48:24
Soy una principiante,el problema es que nose cómo leer de un archivo de tipos de tal forma que cada dato que lea del fichero me lo guarde en una lista enlaza en clas variables que he declarado,adjunto un trozo de código:
PROCEDURE crear_solicitudes(var f_alum:falumnos;varpunt_ca,punt_fi:tpuntero);
var
datos:alumnos;
punt_aux:tpuntero;
begin
new(punt_ca);
reset(f_alum);
seek(f_alum,0);
read(f_alum,datos.apell1);
read(f_alum,datos.apell2);
writeln(datos.apell1);
writeln(datos.apell2);
end;
BEGIN{ppal]
assign(fich_alum,'c:\diana\falum.dat');
crear_solicitudes(fich_alum,punt_cabeza,punt_final);
end.
cuando escribe por pantalla la variable apell1 me escribe todo el registro entero;nombre apellidos,dni..todo en una variable como puedo leerlo para que me lo vaya guardando por registros dentro de una lista???
por favor es urgente,muchas gracias
PROCEDURE crear_solicitudes(var f_alum:falumnos;varpunt_ca,punt_fi:tpuntero);
var
datos:alumnos;
punt_aux:tpuntero;
begin
new(punt_ca);
reset(f_alum);
seek(f_alum,0);
read(f_alum,datos.apell1);
read(f_alum,datos.apell2);
writeln(datos.apell1);
writeln(datos.apell2);
end;
BEGIN{ppal]
assign(fich_alum,'c:\diana\falum.dat');
crear_solicitudes(fich_alum,punt_cabeza,punt_final);
end.
cuando escribe por pantalla la variable apell1 me escribe todo el registro entero;nombre apellidos,dni..todo en una variable como puedo leerlo para que me lo vaya guardando por registros dentro de una lista???
por favor es urgente,muchas gracias
Valora esta pregunta


0