Lendo e gravando em arquivos 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;