Post 6 - Carregando arquivo TXT no delphi

Caros leitores, dessa vez vamos falar sobre arquivos txt trabalhados dentro do Delphi.
Todos nós sabemos que a integração de qualquer programa com arquivos de texto é importante tanto para importação como para exportação de dados.
Nesse post não será muito diferente a forma que iremos trabalhar.
Então, para iniciarmos, vamos criar uma tela similar a tela mostrada abaixo:

O form contém:
1 Edit
2 Buttons
1 Memo
1 OpenDialog

Após inserir os componentes no formulário vamos iniciar o código pelo botão Localizar arquivo:

  if OpenDialog1.Execute then //Se o opendialog for executado a janela para localizar arquivos será exibida
    begin
      Edit1.Text := OpenDialog1.FileName; //O edit receberá o diretório completo do opendialog
    end;

Com o nosso programa já localizando arquivos txt, vamos agora carregar  os dados contidos neles, para isso cole o código abaixo dentro do botão Carregar arquivo:

var
  arq: TextFile;
  linha: string;
begin
  if (Edit1.Text <> '') then
    begin
      Memo1.Clear;
      AssignFile(arq, Edit1.Text);
      {$I-} // desativa a diretiva de Input
      Reset(arq); // Abre o arquivo texto para leitura
      {$I+} // ativa a diretiva de Input
        if (IOResult <> 0) then // verifica o resultado da operação de abertura
          begin
            Memo1.Lines.Add('Erro na abertura do arquivo!!!');
          end
        else begin
          while (not eof(arq)) do //verifica se o arquivo atingiu o final
            begin
              readln(arq, linha); //lê uma linha do arquivo
              Memo1.Lines.Add(linha);
            end;
         CloseFile(arq); //fecha o arquivo
        end;
    end
    else begin
      ShowMessage('Impossível efetuar o carregamento.'#13'Caminho do arquivo vazio!');
      Edit1.SetFocus;
    end;
end;

Clique aqui para baixar o fonte
Pronto! Feito isso seu projeto estará funcionando direitinho.
Qualquer dúvida contatem-me por e-mail: wesleymenezzes@gmail.com
Obrigado e não esqueçam de curtir e compartilhar nossos posts. Deus abençoe.