CLendo todo o conteúdo de um arquivo texto usando Delphi

[SubCash 0]

Nesta dica mostro como usar o Delphi para ler todo o conteúdo de um arquivo texto. Esta leitura será feita linha a linha e adicionaremos cada linha a um TMemo à medida que ela for lida.

 

O primeiro passo para se ler um arquivo texto usando Delphi é declarar uma variável do tipo TextFile. Em seguida usamos a procedure AssignFile() para associar a variável TextFile ao arquivo em disco.

 

Como queremos ler o conteúdo do arquivo, a função Reset() deve ser usada. Esta função abre o arquivo texto fornecido e posiciona o cursor de leitura no início do arquivo. A partir daí podemos usar um laço while e a função ReadLn() para ler cada linha do arquivo. Note o uso da função Eof() para testarmos se o ponteiro de leitura ainda não atingiu o fim do arquivo.

 

Veja o exemplo para um melhor entendimento:

 

procedure TForm1.Button1Click(Sender: TObject); var arquivo: TextFile; linha: String; begin // vamos fazer uma ligação entre a variável arquivo e o // arquivo que queremos ler AssignFile(arquivo, 'C:\arquivo de codigos\dados.txt'); // vamos abrir o arquivo em modo leitura Reset(arquivo); // vamos ler cada linha e adicioná-la a um Memo while not Eof(arquivo) do begin ReadLn(arquivo, linha); Memo1.Lines.Add(linha); end; // hora de fechar o arquivo CloseFile(arquivo); end;

 

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.