quarta-feira, 17 de fevereiro de 2016

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

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:\program files\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'.

Nenhum comentário:

Postar um comentário