Artigos Delphi Dicas - Ler e gravar em arquivo texto

Para ler e gravar em arquivos texto, tente usar as seguintes funções e procedures deste esboço de uma rotina Delphi:


var
   Texto: String;
   ArquivoTexto: TextFile; {handle do arquivo texto}
begin
   AssignFile(ArquivoTexto,'C:\teste\arqtexto.txt'); {Associa o arquivo a uma variável do tipo textfile)
   Reset(ArquivoTexto); {Abre o arquivo texto}
   Readln(ArquivoTexto,Texto); {Armazena a linha atual do arquivo na string Texto e salta para a próxima linha}
   Writeln(ArquivoTexto,Texto); {Grava a string Texto no arquivo texto}
   ReWrite(ArquivoTexto); {Recria o arquivo texto}
   CloseFile(ArquivoTexto); {Fecha o arquivo texto}
end;