delphi 常用函数 -- 不会引发异常的日志写入函数

热门搜索：

您的位置：首页 >> 马上代码 >> 马上代码 >> 主题: delphi 常用函数 -- 不会引发异常的日志写入函数

标题

delphi 常用函数 -- 不会引发异常的日志写入函数

clq

浏览(1473) 2006-02-08 22:33:58 发表编辑
关键字:

class procedure file1.write_log1(const filename:string; const logInfo:String);//不会引发异常的日志写入函数
var
fs:TFileStream;
s:string;
p:pchar;
begin
try
if FileExists(FileName) then
fs:=TFileStream.Create(FileName, fmOpenReadWrite)
else
fs:=TFileStream.Create(FileName, fmCreate);
fs.Seek(0, soFromEnd);

s:=FormatDateTime('YYYY-MM-DD,hh-mm-ss zzzz',Now)+':'+logInfo+#13#10;
p:=pchar(s);
fs.Write(p^, length(s));
//fs.WriteBuffer(p^, length(s));

fs.Free;

except
end;

end;

--------------------------------------------------
其实代码中的 try块是可以不要的.

总数：0　页次：1/0　首页尾页　　

发表评论: