[DELPHI] LER ARQUIVO DE TEXTO

procedure lerArquivoTexto (nomeDoArquivo: String);

var 

 arq: TextFile;

 linha: String;

begin

 AssignFile ( arq, nomeDoArquivo );

 Reset ( arq );

 ReadLn ( arq, linha );

 //percorre o arquivo de texto linha a linha até o final

 while not Eof ( arq ) do 

  begin

  //lê o conteúdo e adiciona a variável linha

  ReadLn ( arq, linha ); 

  end;

 CloseFile ( arq );

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】