Boa tarde.

Colegas, tenho uma dúvida sobre Pascal.

Tenho um programita que está a guardar num log tudo o que o utilizador está a fazer, até aqui nada de especial.

Agora a dúvida.
Sempre que o programa é executado o ficheiro é overwrited.
Como posso fazer para isto não acontecer, das duas umas, ou faço, sempre que o programa é iniciado é criado um ficheiro de log com um novo nome, ou, escrevo sempre no mesmo ficheiro mas simplesmente adicionando mais dados ao mesmo e não apagando o que já lá estava.


Eu preferia a 2ª opção, mas não sei como o fazer.
Alguém me consegue dar uma sugestão de como fazer isso?

Desde já o agradeço qq ajuda.

Usa o Append para escrever a partir do fim do ficheiro.

Begin
GetTime(hora,min,seg,centesimoSeg);
SetTime(hora,min,seg,centesimoSeg);
GetDate(ano,mes,dia,diaSemana);
SetDate(ano,mes,dia);
assign (Fich, 'Log.txt');
Append(Fich);
writeln(Fich ,'');
writeln(Fich ,'Programa iniciado ás ',hora,':',min,':',seg,' de ',dia,'/',mes,'/',ano);
writeln(Fich ,'');
writeln(Fich ,'');
close(Fich);
reset(Fich);
Tipo isto?

Sim, penso que seja isso.

Obrigado pela resposta rápida.

:)

Exactamente isso.

Apeend acrescenta, e o ReWrite apaga e re-escreve . ;)