Criando e Gravando dados em Txt com Delphi

Os computadores utilizam os arquivos como estruturas de dados para armazenamento de longo prazo de grandes volumes de dados. Dados mantidos em arquivos s�o chamados de dados persistentes porque eles existem al�m da duraç�o da execuç�o do programa em dispositivos de armazenamento secund�rio como disquete, disco r�gido, entre outros.

Nos artigos, manipulando arquivo texto, ser� mostrado como as aplicaç�es Delphi criam, recuperam, atualizam e processam arquivos de dados. O processamento de arquivo representa um subconjunto das capacidades de processamento que permitem a um programa armazenar e processar volumes maciços de dados persistentes.

Neste primeiro artigo ser� demonstrada a criaç�o e a gravaç�o de um arquivo texto no qual os dados s�o armazenados como uma sequ�ncia de caracteres dividida em linhas terminadas por um caractere de fim de linha. Os arquivos no formato texto geralmente s�o encontrados com nomes com a extens�o padr�o TXT (abreviaç�o de TEXT, ou texto em ingl�s). Arquivos texto podem ser facilmente lido ou abertos por qualquer programa que l� texto e, por essa raz�o, s�o considerados universais.

Uma vari�vel que representa um arquivo texto � declarada fazendo-se refer�ncia ao identificador padr�o TextFile. As operaç�es subsequentes sobre o arquivo devem ser precedidas por uma chamada ao procedimento AssignFile e as operaç�es de entrada e sa�da devem ser precedidas da chamada dos procedimentos Reset ou Rewrite/Append, respectivamente.

A seguir ser�o listados os principais procedimentos aplicados aos arquivos texto.

Declarando as vari�veis envolvidas
var	arq: TextFile; { declarando a vari�vel "arq" do tipo arquivo texto }
�	nomeArq, linha: string; ch: char
[ 1 ] AssignFile(arq, nomeArq)
�	Esta instruç�o tem por finalidade associar um nome l�gico de arquivo (arq) ao arquivo f�sico (nomeArq). "nomeArq" � uma cadeia de caracteres que representa qualquer nome de arquivo a ser manipulado. Este nome � atribu�do � vari�vel "arq" e todas as operaç�es sobre "arq" ser�o realizadas no arquivo em disco de nome "nomeArq"
[ 2 ] Rewrite(arq)
�	Um novo arquivo em disco com o nome atribu�do � vari�vel "arq" � criado e preparado para processamento, um ponteiro de arquivo � colocado no in�cio do arquivo criado. Caso o arquivo a ser criado j� exista, esta instruç�o apaga o arquivo para cri�-lo novamente
[ 3 ] Reset(arq)
�	Prepara um arquivo existente para leitura e coloca o ponteiro de arquivo no in�cio. Caso o arquivo n�o exista, esta instruç�o provocar� um erro de Entrada/Sa�da (Input/Output)
[ 4 ] Append(arq)
�	Abre um arquivo texto existente para estend�-lo (sa�das adicionais). Caso o arquivo n�o exista, esta instruç�o provocar� um erro de Entrada/Sa�da (Input/Output)
[ 5 ] CloseFile(arq)
�	Fecha o arquivo texto aberto
[ 6 ] Readln(arq, linha)
�	L� uma linha no arquivo indicado por "arq"
[ 7 ] Read(arq, ch)
�	L� um caractere no arquivo indicado por "arq"
[ 8 ] Writeln(arq, lista_de_express�es)
�	Grava no arquivo texto "arq" um ou mais valores colocando a marca de fim-de-linha no final da lista
[ 9 ] Write(arq, lista_de_express�es)
�	Grava no arquivo texto "arq" um ou mais valores em sequ�ncia
[ 10 ] Eoln(arq)
�	Funç�o l�gica que retorna True se � final de linha, ou seja, se o ponteiro do arquivo indica a leitura da marca de fim-de-linha (CR/LF). Caso contr�rio, a funç�o retorna False
[ 11 ] Eof(arq)
�	Funç�o l�gica que retorna True caso o ponteiro do arquivo indique a leitura da marca de fim-de-arquivo, caso contr�rio, a funç�o retorna False

Para demonstrar a utilizaç�o dos procedimentos que manipulam arquivos texto ser� desenvolvida uma aplicaç�o Delphi para gravar a tabuada de um n�mero em um arquivo externo denominado de "tabuada.txt" criado na unidade de disco "d"

Desenvolvendo a Aplicaç�o Delphi Criar uma nova aplicaç�o no ambiente de desenvolvimento Delphi 7 atrav�s da opç�o do menu "File|New|Application..." e realizar os dois passos descritos a seguir:

1� Passo:
Desenvolver o formul�rio principal da aplicaço como sugere a Figura 1. Atenç�o: observe que as caixas de textos explicativos utilizadas na figura apresentam a ordem sequencial e o nome do componente, a p�gina da sua localizaç�o e as propriedades que devem ser alteradas com os respectivos valores.

Figura 1. Formul�rio principal da aplicaç�o

2� Passo:
A interaç�o de um programa com um dispositivo de armazenamento atrav�s de arquivos passa por tr�s etapas: abertura ou criaç�o de um arquivo, leitura ou gravaç�o de dados e fechamento do arquivo. A realizaç�o destas etapas e a utilizaç�o do procedimento writeln para gravar a tabuada do n�mero informado no arquivo, dever�o ser implementadas no evento "onClick" do bot�o "Tabuada", como mostra a Listagem 1

Listagem 1. Procedimento do evento "onClick" do bot�o "Tabuada"


procedure TForm1.Button1Click(Sender: TObject);
var  arq: TextFile; { declarando a vari�vel "arq" do tipo arquivo texto }
    i, n: integer;
begin
  try
{ [ 1 ] Associa a vari�vel do programa "arq" ao arquivo externo "tabuada.txt"
          na unidade de disco "d" }
    AssignFile(arq, 'd:\\tabuada.txt');
    Rewrite(arq); { [ 2 ] Cria o arquivo texto "tabuada.txt" na unidade de disco "d" }

    n := StrToInt(Edit1.Text);

    Writeln(arq, '+--Resultado--+'); { [ 8 ] Grava uma linha no arquivo }
    for i:=1 to 10 do
    begin
{ [ 8 ] Grava uma linha da tabuada no arquivo }
      Writeln(arq, '| ', i:2, ' X ', n, ' = ', (i*n):2, ' |');
    end;
    Writeln(arq, '+-------------+'); { [ 8 ] Grava uma linha no arquivo }

    CloseFile(arq); { [ 8 ] Fecha o arquivo texto "tabuada.txt". }

    ShowMessage('Tabuada gravada com sucesso em "d:\tabuada.txt".');
  except
  end;
end;

Executando a aplicaç�o deve-se informar o n�mero da tabuada e pressionar o bot�o "Tabuada". Ao final do processo de gravaç�o da tabuada no arquivo texto ser� apresentada uma mensagem indicando que o arquivo "tabuada.txt" foi criado com sucesso na unidade de disco "d". Para visualizar o resultado da gravaç�o basta abrir o arquivo "tabuada.txt" atrav�s do bloco de notas, por exemplo. Na Figura 2 pode-se observar a sequ�ncia de passos na gravaç�o da tabuada do 8

1. Informando o n�mero da tabuada	2. Sucesso na gravaç�o da tabuada
3. Arquivo "tabuada.txt" aberto pelo Bloco de Notas
Figura 2. Ilustrando a execuç�o da aplicaç�o

Neste artigo foi apresentado como gravar informaç�es em um arquivo texto. No pr�ximo artigo sobre a manipulaç�o de arquivos texto em aplicaç�es Delphi ser� demonstrado com efetuar a operaç�o de leitura

Obrigado e um abraço

Criando e Gravando dados em Txt com Delphi

Artigos relacionados