Exemplo de Gravação Arquivo Binário em Pascal

Trazendo mais uma matéria sobre Linguagem Pascal vamos aprender a gravar um arquivo binário.

No exemplo abaixo vamos gravar alguns caracteres no arquivo, o código de conversão é o ASCII.

Código Fonte:

 Program Arquivos_Binarios;  
 Uses Crt;  
 var  
  b : File of Byte;  
  i : Integer;  
 begin  
  // Gravando um arquivo binario  
  Assign (b,'binario.bin');  
  {$I-}  
  Reset (b);  
  if IOResult<>0 then ReWrite (b);  
  {$I+}  
  Write (b,255);  
  Write (b,32);  
  Write (b,32);  
  Write (b,65);  
  Write (b,66);  
  Close (b);  
 end.  

Temos uma novidade nesse código que é o {$I-}, {$I+} e o IOResult.

{$I-}

Para desabilitar o controle de erros de entrada e saída e dessa forma evitar que o comando RESET cause um erro se tentar abrir um arquivo que não existe.

IOResult

O controle de erros esta desabilitado mas o código não e no exemplo acima determinamos que o erro possível é que o arquivo não exista e o erro será diferente de 0.

{$I+}

Habilita novamente o controle de erro.

Nenhum comentário:

Postar um comentário