Exemplo de Leitura de Arquivo Binário em Pascal

Em complemento ao Post de Gravação vamos aprender como fazer a leitura.

 Program Arquivo_Binario2;  
 Uses Crt;  
 var  
  b : File Of Byte;  
  c : Byte;  
 Begin  
  ClrScr;  
  Assign (b,'binario.bin');  
  Reset (b);  
  while not(eof(b)) do  
  begin  
   Read (b,c);  
   Write (chr(c));  
  end;  
  Close (b);  
  ReadLn;  
 End.  

Dúvidas entre em contato.

Nenhum comentário:

Postar um comentário