Funções de Manipulação de Arquivos Pascal
Publicado por saymon castro de souza 18/10/2007
[ Hits: 11.369 ]
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.
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.
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Visualizador de imagens feito no Lazarus
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
Questionário em estatisticas em Pascal
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Dongle Bluetooth 5.0 não funciona no Pop Os 22.04 (2)
Impressora Canon Ip 1800 (Drivers) 64 bit (2)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba