Como ler dados de um arquivo Txt com Delphi

Arquivo Texto (*.txt)
No artigo Criando e Gravando dados em Txt com Delphi foi apresentado como realizar a criaç�o e a gravaç�o de dados em um arquivo texto usando o identificador padr�o TextFile. Neste segundo artigo que aborda este tema ser� demonstrado como recuperar os dados de arquivos que utilizam o formato txt.

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 os comandos para realizar a recuperaç�o de dados devem ser precedidas da chamada ao procedimento Reset.

A lista com os principais procedimentos aplicados aos arquivos texto pode ser encontrada, novamente, no artigo Criando e Gravando dados em Txt com Delphi.

Para demonstrar a utilizaç�o dos procedimentos que manipulam arquivos texto em operaç�es de entrada ser� desenvolvida uma aplicaç�o Delphi para efetuar a leitura, da primeira at� a �ltima linha, de arquivos criados neste formato.

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 do arquivo, leitura dos dados e fechamento do arquivo. A realizaç�o destas etapas e a utilizaç�o do procedimento readln para ler as linhas do arquivo, dever�o ser implementadas no evento "onClick" do bot�o "Ler Arquivo", como mostra a Listagem 1.

Listagem 1. Procedimento do evento "onClick" do bot�o "Ler Arquivo".


procedure TForm1.Button1Click(Sender: TObject);
var   arq: TextFile; { declarando a vari�vel "arq" do tipo arquivo texto }
    linha: string;
begin
  Memo1.Clear;

// [ 1 ] Associa a vari�vel do programa "arq" ao arquivo externo "tabuada.txt"
//       na unidade de disco "d"
  AssignFile(arq, Edit1.Text);

  {$I-}         // desativa a diretiva de Input
  Reset(arq);   // [ 3 ] Abre o arquivo texto para leitura
  {$I+}         // ativa a diretiva de Input

  if (IOResult <> 0) // verifica o resultado da operaç�o de abertura
     then Memo1.Lines.Add('Erro na abertura do arquivo !!!')
  else begin
// [ 11 ] verifica se o ponteiro de arquivo atingiu a marca de final de arquivo 
         while (not eof(arq)) do
         begin
           readln(arq, linha); // [ 6 ] L� uma linha do arquivo

           Memo1.Lines.Add(linha);
         end;

         CloseFile(arq); // [ 8 ] Fecha o arquivo texto aberto
       end;
end;

Aspectos importantes da codificaç�o apresentada na Listagem 1:
1) O procedimento Reset 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. Para proteger a execuç�o do c�digo evitando um eventual erro de abertura deve-se desligar a diretiva de compilaç�o para operaç�es de entrada (Input) atrav�s da instruç�o {$I-}.
2) Com a diretiva de Input desligada o resultado da operaç�o de abertura do arquivo ser� retornado atrav�s da funç�o IOResult. O retorno do valor 0 indica que o arquivo foi aberto com sucesso.
3) O processo de repetiç�o, para ler "todas" as linhas do arquivo de texto, foi implementado atrav�s de uma instruç�o while com a express�o l�gica not eof(arq) que encerra o processo de leitura sempre que o ponteiro do arquivo atingir a marca de fim-de-arquivo.

Executando a aplicaç�o deve-se informar o nome do arquivo texto e pressionar o bot�o "Ler Arquivo". O conte�do do arquivo lido ser� exibido nas linhas do componente Memo como pode ser observado nas duas figuras abaixo:
a) Figura 2 mostra o resultado da leitura do arquivo, "tabuada.txt" localizado na unidade "d", criado como exemplo no artigo Criando e Gravando dados em Txt com Delphi;
b) Figura 3 mostra o resultado da leitura do arquivo, "AloMundo.pas" localizado na unidade "d", que representa um c�digo fonte escrito em Linguagem Pascal.


Figura 2. Ilustrando a execuç�o da aplicaç�o: lendo o arquivo "tabuada.txt".


Figura 3. Ilustrando a execuç�o da aplicaç�o: lendo o arquivo "AloMundo.pas".

Neste artigo a manipulaç�o de arquivo texto foi implementada com o identificador padr�o TextFile. Outra forma de implementaç�o poderia ser realizada atrav�s da utilizaç�o da classe TStringList. Esta classe permite criar e manipular em mem�ria uma lista de strings, como por exemplo, um arquivo texto. A Listagem 2 mostra o c�digo necess�rio para carregar um arquivo texto em um componente Memo usando o m�todo LoadFromFile da classe TStringList.

Listagem 2. Carregando um arquivo texto com o m�todo LoadFromFile.



procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  try
    Memo1.Lines.LoadFromFile(Edit1.Text);
  except
    Memo1.Lines.Add('Erro na abertura do arquivo !!!');
  end;
end;

Lendo dados de Txt com Delphi

Neste segundo artigo sobre a manipulação de arquivo texto usando o identificador padrão TextFile será demonstrado como recuperar dados de arquivos que utilizam o formato Txt.

Artigos relacionados