Delphi中写日志文件log概括

发布时间：2021-12-11 09:54:13 所属栏目：PHP教程来源：互联网

导读：思想：我们在写日志文件的时候习惯将所有的日志文件全部Add到一个List链表里面，然后用定时器定时从List链表中取数据写文件。所以我使用TStringList，将所以日志Add到TStringList里面，然后用定时器从TStringList里面取数据写日志。 procedure Tfoffertool.O

思想：我们在写日志文件的时候习惯将所有的日志文件全部Add到一个List链表里面，然后用定时器定时从List链表中取数据写文件。

所以我使用TStringList，将所以日志Add到TStringList里面，然后用定时器从TStringList里面取数据写日志。

procedure Tfoffertool.OnReadListTimer(Sender: TObject);
var
  sysDir : string;
  strMsg : string;
  logfile: string;

begin
  //创建日志文件
  sysDir:=extractfilepath(application.ExeName);
  logfile:=formatdatetime('yyyyy-mm-dd', Now()) + '.log'; // 在字符串前加上日期
  if not directoryexists(sysdir) then
    createdir(sysdir);
  AssignFile(mylog,logfile);
  if fileexists(sysDir+logfile) then
  append(mylog)
  else
  rewrite(mylog);
  while ((mylogList.Count) > 0) do
  begin
    strMsg := mylogList.Text;              //从List里面读取数据这个是读取块

    //好像也可以这样每次读取一行：

    //strMsg := mylogList[0];

    //mylogList.Delete(0);
    mmolog.Text := mmolog.Text + strMsg;    //将数据显示在TMemo控件中
    mylogList.Clear;
    Writeln(mylog,strMsg);                //写日志里
  end;
  CloseFile(mylog);                        //关闭文件流
end;

（编辑：应用网_丽江站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

php读取大文件最好的实	php无限遍历文件夹示例
php中实现过滤UBB代码	Laravel模板引擎Blade