Como escrever em um arquivo texto usando Delphi

[SubCash 0]

Não há como fugir. Cedo ou tarde precisaremos escrever em um arquivo texto usando Delphi. E esta dica foi escrita com o propósito de facilitar esta tarefa.

 

O primeiro passo para se escrever em um arquivo texto usando Delphi é declarar uma variável do tipo TextFile. Em seguida usamos a procedure AssignFile() para associar a variável TextFile ao arquivo em disco.

 

Como queremos escrever conteúdo novo no arquivo, a função Rewrite() pode ser usada. Esta função cria o arquivo em disco se este ainda não existir. Se o mesmo existir, ele é excluído e a função cria outro com o mesmo nome. E, para escrever conteúdo no arquivo texto, usamos as funções Write() e WriteLn(). A primeira escreve no arquivo enquanto a segunda escreve no arquivo e adiciona o marcador de quebra de linha.

 

Veja o exemplo para um melhor entendimento:

 

procedure TForm1.Button1Click(Sender: TObject); var arquivo: TextFile; begin // vamos fazer uma ligação entre a variável arquivo e o // arquivo que queremos manipular AssignFile(arquivo, 'C:\arquivo de codigos\dados.txt'); // vamos abrir o arquivo ou criar um novo Rewrite(arquivo); // vamos escrever no arquivo agora WriteLn(arquivo, 'Sou a primeira linha.'); Write(arquivo, 'Sou a segunda linha.'); WriteLn(arquivo, ' E lá vem...'); WriteLn(arquivo, 'A terceira linha'); // hora de fechar o arquivo CloseFile(arquivo); // fim ShowMessage('Operação realizada com sucesso.'); end;

 

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.