如何创建和读写LOG文件

其实就相当于 *** 作.txt文件一样  

你换下后缀就行了。示例如下：

// 如果你用心学一下PASCAL的基础知识就会看明白的.

// astr是需要记录的字符串内容, FN: 日志文件的名称, 默认为程序名称后加log.txt

procedure LogToFile(astr: string fn: string = 'AppLog')

var

  f: TextFile // 声明文件类型的变量

begin

  astr := formatdatetime('yy/mm/dd HH:nn', now) + ':'+ astr // 在字符串前加上日期

  if fn = 'AppLog' then

    fn := ChangeFileExt(GetModuleName(HInstance), '.' + formatdatetime('yymmdd', now) + '.log.txt') // 如

果不指定文件名称,则使用程序名称加.log.txt为日志名称

  AssignFile(f, fn) // 关联文件变量核者到指定的文件名

  try

    if FileExists(fn) then 

      Append(f) // 如果文件已经存在则设为追加模式

    else Rewrite(f) //否则重写一个新的文件.

    Writeln(f, astr) // 写入内容到日志文件

    { insert code here 尘烂that would require a Flush before closing the file }

    Flush(f) { ensures that the text was actually written to file  刷新缓冲,确保内容已经写入文件}

  finally

 改兄薯   CloseFile(f) // 关闭打开的文件

  end

end

1、找到你的log文件，本文以（aaa.log文件为例）如图所示：

2、鼠标选中（aaa.log文件）右击，如图所示：

3、在右击d出页面找到并点击打开方式（H），如图所示：

4、进入到打开方式界面“你要如何打开这个文件”，如图所示：

5、点击记事本，点击确陪塌定，如图所示：

6、即可成功打开衫乱扰或旦.log文件了，如图所示：

---