各位大侠,小弟是初学者,请问用delphi怎么写日志文件啊?(0分)

各位大侠,小弟是初学者,请问用delphi怎么写日志文件啊?
我想把信息栏里面的到了5000条的时候就转存到日志文件,然后将信息栏清空?

此问题问得太多了，搜下不就得了。

procedure RunLog(aStr: string);
var
f: TextFile;
begin
AssignFile(f, LogFileName);
if FileExists(LogFileName) then
begin
//if MyGetFileSize(LogFileName) >= 204800 then //200K则自动清空日志
//begin
// Rewrite(f);
//end else
Append(f);
end else
ReWrite(f);
Writeln(f, aStr);
Flush(f);
CloseFile(f);
end;

谢谢了~!,小弟问题已经解决了.不过我没积分了,对不起啊~!