Teniendo este codigo:
Código Delphi
[-]PROGRAM Pract_3a_5_4; {$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;
eleccion: STRING;
contador: integer;
introducido: boolean;
y este procedimiento:
Código Delphi
[-]PROCEDURE grabarDatos (contador: integer);
VAR
aux: integer;
grabado : archivo;
BEGIN
assign (grabado, 'Datos.dat');
rewrite (grabado);
FOR aux:= 1 TO contador DO
BEGIN
write (grabado, a[aux].nombre);
write (grabado, a[aux].apellidos);
write (grabado, a[aux].NIF);
write (grabado);
END;
close (grabado);
END;
Me aparecen tres errores que dicen: "incompatible types": 'informacion' and 'ShortString'. (Donde he puesto lo de (*ERROR*)
Los datos que guardo han sido pedido correctamente en otro procedimiento.
Alguien me puede ayudar a arreglarlo?
muchas gracias