如何创建和读写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

<?php

//log日志文件

$txt = 李握'./log.txt'

//要销颤写亏扰败入的内容

$addLogStr = date('Y-m-d H:i:s')." *** 作了xxx成功OR失败!\r\n"

//打开资源并将光标设置为末尾

$fp = fopen($txt,"a+")

//写入内容

fwrite($fp,$addLogStr)

//关闭资源

fclose($fp)

---