Criar um Arquivo Texto em Pascal

Sei que nas faculdades a linguagem Pascal ainda é muito aplicada. E dando continuidade a ajuda que tenho dado aos leitores vou estar postando uma seqüencia de programas em Pascal detalhados.

Cria Arquivo Texto.png

Vale lembrar que estou usando Free Pascal que nem sempre é 100% compatível ao Turbo Pascal.

Vamos aprender a fazer um programa que cria um arquivo texto.

O código é super simples:

 Program Cria_Arquivo_Texto_em_Pascal;  
 Uses Crt;  
 var  
  t : Text;  
  s : String;  
 begin  
  // Tela  
  ClrScr;  
  WriteLn ('Criando um Arquivo...');  
  // Cria novo arquivo  
  Assign (t,'Arquivo.txt');  
  ReWrite (t);  
  // Grava algo no arquivo  
  WriteLn (t,'Uma linha');  
  Close (t);  
  WriteLn ('Arquivo Criado...aperte qualquer tecla para sair');  
  ReadLn;  
 end.  

Analisando as linhas:

Uses CRT;

Serve para carregas as bibliotecas de vídeo CRT e sem ela o comando CLRSCR (Clear Screen) não funcionaria.

t : Text;

Cria uma variável do tipo Text = Texto para especificar o tipo de arquivos que iremos criar.

O comando ASSIGN faz a associação entre a variável T e o nome 'ARQUIVO.TXT'.

O comando ReWRITE cria o arquivo que está associado a variável T que no caso é o ARQUIVO.TXT.

O comando WRITELN junto com a variável T faz a gravação do conteúdo entre aspas para dentro do arquivo associado a variável T.

O comando CLOSE fecha o arquivo associado a variável T e é muito importante para não perder o final dos dados e a falta desse comando é comum.

O comando READLN; dá uma pausa no programa.

Tem dúvida em Pascal, não consegue achar a falha no seu programa? Envie para mim: telles.wellington@bol.com.br

8 comentários:

  1. eu preciso criar um programa que salve todas as informações em txt, porém, a cada vez que passa pelo "FOR" ele grava por cima do txt...
    teria alguma forma de criar uma variável que mude o nome do arquivo a cada vez? tipo: criar uma pasta nova a cada vez que passa pela linha...

    ResponderExcluir
    Respostas
    1. bla.bla
      for bla bla bla do
      bla > 0
      write(' blablabla ' )
      else
      bla

      end

      Excluir
  2. Oi, muito boa a sua explicação, só não entendi uma coisa, pra que foi declarada a variavel S?

    ResponderExcluir
  3. Nesse modelo para nada, mas é utilizado para ler o arquivo texto.

    ResponderExcluir
  4. Sérgio,

    Tem várias formas. Se desejar adicionar algo ao arquivo no local de ReWrite troque por Append.

    ResponderExcluir
  5. Na linha Assign é possível mudar o local:

    Assign (t,'D:\Arquivo.txt');

    ResponderExcluir