1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Dúvida de Pascal

Discussão em 'Programação' iniciada por All_Mighty, 1 de Fevereiro de 2008. (Respostas: 5; Visualizações: 694)

  1. 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.
     
  2. Baderous

    Baderous Banido

    Usa o Append para escrever a partir do fim do ficheiro.
     
  3. Código:
    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?
     
  4. Baderous

    Baderous Banido

    Sim, penso que seja isso.
     
  5. Obrigado pela resposta rápida.

    :)
     
  6. Rúben T.

    Rúben T. Power Member

    Exactamente isso.

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

Partilhar esta Página