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 按esc快捷键退出程序的简单方法

Delphi tfont类型和json互相转换的函数

Delphi with 语句的妙用

Delphi编程启动服务停止服务新建服务的方法

Delphi 扫二维码并识别

Delphi调用winapi: getsystemmetrics - 获取系统度量等数值信息

Delphi 调用api打开文件 使用系统默认打开方式进行打开

Delphi从内存流中判断图片格式

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

Delphi假死线程堵塞解决办法

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

转载请注明出处：木庄网络博客 » delphi 写日志函数