Ejemplo de un listado del contenido de un archivo
[pascal]program listado;
uses
crt;
type
datosPersona = (id,Nom,dom,cid,tel);
Regpersona = record
idpersona : longint;
Nombre : string[30];
Calle : string[25];
Ciudad : string[15];
Telefono : string[15]
end;
Archivero = file of Regpersona;
Regcontrol = record
idcontrol : longint;
idependencia : longint;
idpersona : longint;
borrado : boolean;
end;
ArchiveroControl = file of Regcontrol;
var
ArchivoPersona : Archivero;
Usuario : RegPersona;
ArchivoControl : ArchiveroControl;
control : RegControl;
idusuario : longint;
idCtrl : longint;
resultado : integer;
respuesta : char;
lista : array[1..100,datosPersona] of string[100];
i : integer;
BEGIN
clrscr;
{--------------------------- APERTURA DEL ARCHIVO DE PERSONAS ---------------------------}
Assign(ArchivoPersona,'c:personas.arg');
{$I-}
Reset(ArchivoPersona); {Abre el flujo de datos para posteriormente ser guardado}
Resultado:=IOresult;
{$I-}
if Resultado <> 0 then {El archivo no existe}
begin
write('EL ARCHIVO DE PERSONAS NO EXISTE');
end
else
begin
i:=1;
while not Eof(ArchivoPersona) do
begin
Read(ArchivoPersona,Usuario);
str(Usuario.idpersona,lista[i,id]);
lista[i,nom]:=Usuario.Nombre;
lista[i,dom]:=Usuario.Calle;
lista[i,cid]:=Usuario.Ciudad;
lista[i,tel]:=Usuario.Telefono;
i:=i+1
end;
writeln('------id------Nombre-----------Calle-----------Ciudad------------Telefono');
for i:=1 to 100 do
if (i MOD 24 <> 0) then
writeln(lista[i,id],' ',lista[i,nom],' ',lista[i,dom],' ',lista[i,cid],' ',lista[i,tel])
else
if length(lista[i,nom])=0 then
i:=100
ELSE
readkey;
end;
readkey;
Close(ArchivoPersona);
END.[/pascal]
