delphi 写日志函数


本文整理自网络,侵删。

 procedure TFrm_main.writelog(str: string);
var
  F: TextFile;
  S,FilePath: String;
  qFileStream:   TFileStream;
begin
  FilePath := ExtractFilePath(ParamStr(0)) +'logfile.ini';
  If  not FileExists(FilePath)   then
  begin
    qFileStream   :=   TFileStream.Create(FilePath,   fmCreate);//这里用打开写方式。可设其他常量值看帮助。
    qFileStream.Seek(0,   sofromEnd);
    qFileStream.Free;
  end;
  AssignFile(F,   FilePath);
  Append (F);
  Writeln(F,str);
  CloseFile(F);
end;

相关阅读 >>

Delphi获取系统当前进程名和进程id

Delphi 自带rest调试工具 restdebugger 用法

Delphi 中字符串比较函数对比

Delphi winapi: getclassname - 获取指定窗口的类名

Delphi不占cpu的延时函数

Delphi 如何在定义局部变量时赋初始值

Delphi sysutils.trim、sysutils.trimleft、sysutils.trimright - 删除空格

Delphi 指定在ie浏览器或ie内核打开链接

Delphi 高权限进程实现拖曳文件操作

Delphi一个简单的多线程例子

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...