ARQUIVO

Arquivo
Vamos aprender a usar o Arquivo de tipo TEXT
Arquivos TEXT
Conhecido por arquivo seqüencial.
Tipo especial de arquivo que pode ser editado normalmente através de um editor de textos qualquer.
É dito seqüencial porque a leitura tem que ser feita seqüencialmente do início ao fim do arquivo.
Sintaxe :
: Text;

# Arquivos TEXT

    * Program grava_algo;

    * Var Arquivo : Text;

    * algo : String;

    * i : integer;

    * Begin

    * Assign(Arquivo, 'algo.txt');

    * Rewrite(Arquivo);

    * Write('Digite algo: ');

    * Readln(algo);

    * For i := 1 to 10 do

    * Writeln(Arquivo, algo);

    * Close(Arquivo);

    * End.

# Arquivos TEXT

    * Program le_algo;

    * Var Arquivo : Text;

    * algo : String;

    * Begin

    * Assign(Arquivo, 'algo.txt');

    * Reset(Arquivo);

    * While not EOF(Arquivo) do

    * Begin

    * Readln(Arquivo, algo);

    * Writeln(algo);

    * End;

    * Close(Arquivo);

    * End.