血鸟BLOG------天舞枫

•  [delphi]写日志函数

  分类：技术心得      Delphi2009初体验 - IDE篇 - D2009 VS VS2005    Delphi 2009 中 string 与 Char 的改变 

  将本文章摘录到：

  版权声明：转载时请以超链接形式标明文章原始出处和作者信息
  http://blog.bloodbird.com/tianwufengBlogs/Technology/200904/20090426221841.Html

  delphi 代码

   

  1. procedure TFrm_main.writelog(str: string);
  2. var
  3.   F: TextFile;
  4.   S,FilePath: String;
  5.   qFileStream:   TFileStream;
  6. begin
  7.   FilePath := ExtractFilePath(ParamStr(0)) +'logfile.ini';
  8.   If  not FileExists(FilePath)   then
  9.   begin
  10.     qFileStream   :=   TFileStream.Create(FilePath,   fmCreate);//这里用打开写方式。可设其他常量值看帮助。
  11.     qFileStream.Seek(0,   sofromEnd);
  12.     qFileStream.Free;
  13.   end;
  14.   AssignFile(F,   FilePath);
  15.   Append (F);
  16.   Writeln(F,str);
  17.   CloseFile(F);
  18. end;

   

  Tag：delphi

  引用地址：
  天舞枫 发表于2009-04-26 22:18:41 | 分类:技术心得 | 浏览( ) | 评论( ) | 收藏这篇日志

评论

正在读取日志的评论数据,请稍后……
正在加载日志评论签写框，请稍后……