archivos de texto

[Kurt]

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