Como adicionar (append) mais conteúdo a um arquivo texto já existente

[SubCash 0]

Nesta dica mostro como usar o Delphi para adicionar (append) mais conteúdo a um arquivo texto. O primeiro passo é declarar uma variável do tipo TextFile e usar a procedure AssignFile() para associar a variável TextFile ao arquivo em disco no qual o novo conteúdo será adicionado.

 

Para que o Delphi saiba que queremos adicionar novo conteúdo e não sobrescrever o conteúdo existente, uma chamada à função Append() deve ser feita. Isso faz com que o cursor de posição de arquivo seja posicionado no final do arquivo fornecido como argumento para a função.

 

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 para adição de novo conteúdo Append(arquivo); // vamos escrever mais conteúdo no arquivo agora WriteLn(arquivo, 'Sou mais uma linha.'); WriteLn(arquivo, 'E eu sou a última linha'); // hora de fechar o arquivo CloseFile(arquivo); // fim ShowMessage('Operação realizada com sucesso.'); end;

Note que, se o arquivo no qual queremos adicionar novo conteúdo não existir, uma exceção do tipo EInOutError será lançada:

 

Exception class EInOutError with message 'File not found'.

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