Programación General > Pascal

 Imprimir Un Archivo

(1/1)

TareK:
Hola..
no se que esta mal en este procedimiento. hace que me imprima en pantalla el primer registro muchas veces, y no que vaya imprimiento el resto de los registros del archivo..


--- Código: Text ---procedure imprimirarchivo(var arch   : tarch);varfin:boolean;rarch:trarch;begin     clrscr;  if eof(arch) then     fin:=true  else  begin       fin:=false;       read(arch,rarch)  end;  while not fin do        begin        writeln(rarch.campo1,' ',rarch.campo2);        if eof(arch) then           fin:=true;        end;  writeln('Fin de Archivo');end;  
gracias

REDD:
lo que pasa es que dentro del ciclo tienes que leer otravez el archivo si no, la variable se queda con el primer y unico registro que leiste y el puntero del archivo se queda al principio tambien, prueba con esto:

procedure imprimirarchivo(var arch   : tarch);
var
rarch:trarch;
begin
 clrscr;
 while not eof(arch) do
       begin
         read(arch,rarch)
         writeln(rarch.campo1,' ',rarch.campo2);
       end;
 writeln('Fin de Archivo');
end;

Navegación

[0] Índice de Mensajes