delphi 写系统日志监控 转

不久前写了个抓取网页内容的小程序，跑了一晚上，本以为早上起来都抓完了，谁知道程序死掉了，分析半天，才发现用tmemo来记录日志的信息太多了，越积越多，本来memo的容量就不大。对于无法控制信息量的日志来说，有可能造成崩溃。记得见过盒子上一个关于手机发短信的小程序，上面有个日志的写法不错。
方法：
1、每写一行日志，先判断memo的行数是否超过自己设定的行数，我一般设为1000行，这样保存的日志大小一般在64K左右
2、判断保存日志的目录是否存在，不存在就建 一个
3、用日期加时间取一个日志名，象这种2010-03-12_07-15-23-171.txt 。
4、判断这个文件是否存在，（因为有些监控信息出现很快，有可能瞬间就能到到自己设定的行数，这时保存会冲掉上次的日志），存在就再按现在的时间取个名字
5、保存日志，清除memo
上代码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
mmo1: TMemo;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure writelog(amemo: tmemo; mst: string);
var
mfile: string;
begin
//设定多少行进行保存,如果大于200行进行保存 不过默认一般用1000行，这样一个日志文件在64K左右
if amemo.Lines.Count > 200 then
begin
//判断保存日志文件的目录是否存在
if not DirectoryExists(ExtractFilePath(ParamStr(0)) + 'logdata') then
MkDir(ExtractFilePath(ParamStr(0)) + 'logdata');

//按日期及时间设定保存日志的文件名
mfile := ExtractFilePath(ParamStr(0)) + 'logdata\' + formatdatetime('yyyy-mm-dd_hh-mm-ss-zzz', now) + '.txt';
while fileexists(mfile) do //如果此时间名称日志文件存在，再按下一时间进行取名
begin
mfile := ExtractFilePath(ParamStr(0)) + 'logdata\' + formatdatetime('yyyy-mm-dd_hh-mm-ss-zzz', now) + '.txt';
end;
//保存日志，并清空memo
amemo.Lines.SaveToFile(mfile);
amemo.Clear;
end;
amemo.Lines.Add(formatdatetime('yy-mm-dd hh:mm:ss ', now) + '>>' + mst)
end;

procedure TForm1.btn1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 400 do
begin
writelog(mmo1, '日志信息' + inttostr(i));
end;
end;

end.