|
Prueba leyendo con el mismo tipo de datos, por ejemplo:
PhoneEntry = record
FirstName, LastName: string[20];
PhoneNumber: string[15];
Listed: Boolean;
end;
var
F : File of PhoneEntry
Procedure Escribir;
var
R : PhoneEntry;
begin
R.FirstName := 'Pepe';
R.LastName := 'Diaz';
AssignFile( F, 'c:\xxx.txt' );
Rewrite(F);
Write( F, R );
CloseFile(F);
end;
Procedure Leer;
var
R : PhoneEntry;
begin
AssignFile( F, 'c:\xxx.txt' );
Reset( F );
Read( F, R );
Showmessage( R.LastName );
CloseFile(F);
end;
Leete en la ayuda lo referente a "file of"
Saludos
|