Array
(
)

Limite de tamanho em arquivo texto

Ltres
   - 27 mar 2006

Ola a todos..

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

Hoje eu faço da seguinte maneira

#Código


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?


Massuda
   - 27 mar 2006

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.