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

[lele2 3]

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:

 

Exception class EInOutError with message 'File not found'.

 

 

Creditos:

 

Lele2

Osmar

[edoO~' 0]

pow..

agora sim eu vi um conteúdo descente...

vou usar para criar um sistema de cadastro que eu ja estava planejando!

vlw mlk

[lele2 3]

pow..

agora sim eu vi um conteúdo descente...

vou usar para criar um sistema de cadastro que eu ja estava planejando!

vlw mlk

 

Que bom que te ajudei em algo...