Enviar um texto para um arquivo txt e mudar de linha

Question

Preciso enviar um texto para um arquivo, mais n�o estou conseguindo enviar um em cada linha...tipo:[code:1:dc15c37389]AssignFile(arquivo,�c:CyberSky Tickettickets.txt�);Rewrite(arquivo);WriteLn(arqu...

Beppe · Answer

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

Paulo_amorim · Answer

[quote:8a94592f75=�Beppe�]Coloque Append inv�s de Rewrite. Append abre o arquivo e posiciona no final.[/quote:8a94592f75]Ol�Tamb�m existe o comando [i:8a94592f75]Reset[/i:8a94592f75]At�+...

R�mulo Barros · Answer

[quote:f84c50773e=�Paulo_Amorim�][quote:f84c50773e=�Beppe�]Coloque Append inv�s de Rewrite. Append abre o arquivo e posiciona no final.[/quote:f84c50773e]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:...

Nildo · Answer

[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.

Beppe · Answer

[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;

F�rum Enviar um texto para um arquivo txt e mudar de linha #241749