Arquivos de Texto

Passos básicos para trabalhar com arquivos de texto simples.

Var 
  F:TextFile; 

Begin 
   AssignFile(f,'c:\qq_arquivo.txt'); 
   Rewrite(f); //abre o arquivo para escrita 

   Writeln(f,'Testando'); escreve no arquivo e desce uma linha 

   Write(f,'Linha de Código - www.linhadecodigo.com.br'); //escreve no arquivo sem descer a linha 
   Closefile(f); //fecha o handle de arquivo 
End; 

///Rotina para ler de um arquivo texto: 

var 
   f:TextFile; 
   linha:String; 

begin 
   AssignFile(f,'c:\qq_arquivo.txt'); 
   Reset(f); //abre o arquivo para leitura; 

   While not eof(f) do begin 
     Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha 
     Memo1.lines.add(linha); 
   End; 

   Closefile(f); 
end;




 [ Fonte ]