Arquivos - Pascal

Arquivos tem por finalidade armazenar dados para serem utilizados a qualquer momento, antes estudamos vetores, matrizes e registros esses tipos de dados armazenam as informações na memória RAM e ficam la apenas enquanto o programa esta em execução após isso as informações se perdem.
Com arquivos os dados ficam armazenados em dispositivos físicos, como HD, pen driver, etc. A Linguagem Pascal possui dois tipos de arquivos file e text, no Pascalzim só é possível trabalhar apenas com o tipo text.
No arquivo Text as informações são armazenadas e obtidas sequencialmente, elas são acessadas do início para o fim.
Operações Com Arquivos Text. 

Em um arquivo podemos executar as seguintes operações básicas abertura, leitura ou escrita e fechamento de um arquivo. Para fazer isso devemos usar os seguintes comandos:
var
<variavel> : <tipo>;

Ex.: nome : text;

Assign – tem por finalidade associar um nome logico ao arquivo fisico. Ex.: assign (<variavel>, <arquivo>) .
Rewrite – tem por finalidade criar um arquivo para o uso, utilizando o nome anteriormente designado. Ex.: rewrite (<variavel>) .
Append – tem por finalidade abrir um aquivo para escrita, caso o arquivo não exista o programa gerará um erro na execução, ele faz uma passagem por referência. Ex.: append (<variavel>) .
Reset – tem por finalidade abrir um arquivo existente colocando-o o disponível para leitura e escrita. Ex.: reset (<variavel>) .
Write/Writeln – tem por finalidade escrever a informação no arquivo designado. Ex.: write(<variavel>,<dado>) .
Read – tem por finalidade ler a informação no arquivo. Ex.: read(<variavel>,<dado>) .
Close – tem por finalidade fechar um arquivo dentro de um programa. 

Todos esses citados acima são procedimentos para operar em um arquivo de texto.

Exemplo de um programa simples.

Cria

program criando; 
var 
arquivo : text; 
begin 
    assign(arquivo, 'dados.txt'); 
    rewrite(arquivo); 
    close(arquivo); 
end.

Escrita

program escrita;
var
arquivo : text;
msg: string;
begin
    assign(arquivo, 'dados.txt');
    append(arquivo);
    readln(msg);
    writeln(arquivo, msg);
    close(arquivo);
end.

Leitura

program leitura;
var
arquivo : text;
msg: string;
begin
    assign(arquivo, 'dados.txt');
    reset(arquivo);
    readln(arquivo , msg);
    writeln( msg);
    close(arquivo);
end.

Categories: Pascal , Programação