Funções de Manipulação de Arquivos Pascal

Publicado por saymon castro de souza 18/10/2007

[ Hits: 11.481 ]

Download MA.pas




Senti a necessidade de contribuir com um código fonte comentado, exemplificando a utilização dos principais procedimentos de manipulação de arquivos em PASCAL.

  



Esconder código-fonte

Program MA;
Uses CRT;

Type
   Arquivo = File Of Integer;  {criando um novo tipo, que faz referencia a um arquivo do tipo Inteiro}

Var
   Arq : Arquivo; {criando uma variável do tipo criado acima}
   i : Integer; {criando uma variável do tipo inteiro}
Begin
   Assign(Arq,"/home/usuario/inteiros.txt"); {esta procedure tem a finalidade de atribuir um nome lógico ao arquivo físico, o primeiro argumento é a variável do tipo file e o segundo argumento é o caminho completo incluindo o nome do arquivo a ser feito a referência}
   Rewrite(Arq); {procedure de abertura de arquivo, esta sobreescreve o arquivo existente, se o arquivo não existir cria um novo arquivo}
   For i := 1 to 10 do
      Write(Arq,i); {esta procedure tem como primeiro argumento a variável do tipo file e o segundo a variável do tipo do arquivo, o conteúdo desta variável será escrito no arquivo físico, neste caso estará Escrevendo de 1 até 10 no arquivo}
   Close(Arq);{após a abertura do arquivo, leitura e/ou escrita no mesmo, devemos fechá-lo}
   
   {realizando outra operação no mesmo arquivo}
   Assign(Arq,"/home/usuario/inteiros.txt");
   Reset(Arq); {procedure de abertura de arquivo, esta não sobreescreve o arquivo existente, se o arquivo não existir será retornado uma mensagem de erro}
   For i := 1 to 10 do
      Write(Arq,i);
   Close(Arq);
   {o resultado final escrito no arquivo será 1234567891012345678910}
End.

Scripts recomendados

Questionário em estatisticas em Pascal

Equação do segundo grau

Arquivo texto

[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda

Cadastro Empresarial


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts