27/03/2006

Limite de tamanho em arquivo texto

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

Respostas

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 Citar