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

[iMelo~' 18]

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:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

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

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Créditos: arquivodecodigos

[Estarossa 3.735]

Bem Legal , Da pra Montar um Editor de Textos ou Arquivos Editaveis .

Obrigado por Postar ^^