Limite de tamanho em arquivo texto

27/03/2006

0

Ola a todos..

Como posso escrever um log diretamente num arquivo .log limitando o tamnho do arquivo??

Hoje eu faço da seguinte maneira

var
  sLog: string;

  oArqLog := TFileStream.Create(Pasta + ´Transf.log´, fmCreate);
  try
    oArqLog.WriteBuffer(Pointer(sLog), Length(sLog));
  finally
    oArqLog.Free;
  end;


Assim a cada linha q eu preciso escrever de log eu uso o WriteBuffer.. assim naum preciso ler o arquivo de log..
O problema q dessa maneira o arquivo fica muito grande.. eu queria poder limitar o tamanho do arquivo de alguma forma!!

Alguem tem alguma ideia?


Ltres

Ltres

Responder

Posts

27/03/2006

Massuda

Não existe uma função pronta que faz isso.

O que pode ser feito é você testar se o tamanho (em bytes) do arquivo ultrapassou um certo limite e caso necessário renomear o arquivo existente e criar um novo arquivo.


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar