Enviar um texto para um arquivo txt e mudar de linha

Delphi

06/07/2004

Preciso enviar um texto para um arquivo, mais não estou conseguindo enviar um em cada linha...

tipo:
AssignFile(arquivo,´c:\CyberSky Ticket\tickets.txt´);
Rewrite(arquivo);
WriteLn(arquivo, ´Teste´);
Closefile(arquivo);


Se eu executar o exemplo acima umas 3 vezes, ele sobrepoe a linha. O que eu quero é executar 3 vezes e aparecer 3 linha:

Teste
Teste
Teste

Alguém pode ajudar?


Redoctober

Redoctober

Curtidas 0

Respostas

Beppe

Beppe

06/07/2004

Coloque Append invés de Rewrite. Append abre o arquivo e posiciona no final.


GOSTEI 0
Paulo_amorim

Paulo_amorim

06/07/2004

Coloque Append invés de Rewrite. Append abre o arquivo e posiciona no final.


Olá

Também existe o comando [i:8a94592f75]Reset[/i:8a94592f75]

Até+


GOSTEI 0
Rômulo Barros

Rômulo Barros

06/07/2004

[quote:f84c50773e=´Beppe´]Coloque Append invés de Rewrite. Append abre o arquivo e posiciona no final.


Olá

Também existe o comando [i:f84c50773e]Reset[/i:f84c50773e]

Até+[/quote:f84c50773e]

Isso mesmo. Entretanto, o comando RESET abre o arquivo somente como leitura :wink:


GOSTEI 0
Nildo

Nildo

06/07/2004

[quote:2bdb762c8a=´Undeclared Identifier´]Isso mesmo. Entretanto, o comando RESET abre o arquivo somente como leitura :wink:[/quote:2bdb762c8a]

O RESET também posiciona o ponteiro do mesmo no início do arquivo quando abre.


GOSTEI 0
Beppe

Beppe

06/07/2004

[quote:c5a4369ba3=´Undeclared Identifier´]Isso mesmo. Entretanto, o comando RESET abre o arquivo somente como leitura :wink:[/quote:c5a4369ba3]
Isto é verdade quando for um TextFile. Para outros arquivos (file of), o modo é determinado pela variável FileMode, no momento da chamada a Reset.

Abertura:
    fmCreate         = $FFFF;
    fmOpenRead       = $0000;
    fmOpenWrite      = $0001;
    fmOpenReadWrite  = $0002;


[b:c5a4369ba3]or[/b:c5a4369ba3]

Compartilhamento:
    fmShareCompat    = $0000 platform;
    fmShareExclusive = $0010;
    fmShareDenyWrite = $0020;
    fmShareDenyRead  = $0030 platform;
    fmShareDenyNone  = $0040;



GOSTEI 0
POSTAR