Ayuda con error en codigo :-(

[jorgegetafe]

Vale muchisimas gracias, ya va perfectamente. Tambien he quitado las tres lineas y he dejado 1 sola porque asi no se repiten.

[jorgegetafe]

¿y para leer el archivo resultante como se haria? (para meterlo en memoria)

Tengo puesto esto pero me da un error en tiempo de ejecucion.

Código Delphi [-]
 
PROGRAM Pract_3a_5_5;      {$APPTYPE CONSOLE}
USES
  SysUtils, crt;
TYPE
  informacion = RECORD
  nombre: STRING[20];
  apellidos: STRING[20];
  NIF: STRING[20];
END;
  agenda = ARRAY [1..5] OF informacion;
  archivo = FILE OF informacion;
VAR
  a: agenda;
  i: integer;
(******************************************************************************)
PROCEDURE leerDatos;                                                            (* Mete en memoria el contenido del fichero: "Datos.dat" *)
  VAR
    grabado: archivo;
  BEGIN
    assign (grabado, 'Datos.dat');
    reset (grabado);
    FOR i:=1 TO 5 DO
      read (grabado, a[i]);     (* Aqui da el ERROR= "project raised exception class EinOutError with message 'read beyond end of file' *)
    close (grabado);
    writeln ('Datos leeido correctamente del fichero Datos.dat.');
    writeln;
    writeln ('Pulse intro para continuar');
    readln;
  END;
(******************************************************************************)

[[Caral]]

Hola
En este caso no se usa LoadFromFile ?
Saludos

[jorgegetafe]

No me dejan usar eso...

Ya se porque fallaba, yo leia 5 veces y tenia introducido 5 personas, con esto no falla.

gracias una vez mas.

Código Delphi [-]
 
WHILE NOT EOF (grabado) DO
      BEGIN
        read (grabado, a[i]);     (* ERROR= "project raised exception class EinOutError with message 'read beyond end of file' *)
        i:=i+1;
      END;