procedure TformMain.WriteLog(Err:boolean;sTrLog:string);
var sBackupFile,sDir:string;
vFile: Textfile;
begin
sDir:='指定目錄';
if Copy(sDir, Length(sDir), 1) <> '\' then
sDir := sDir + '\';
//sDir:=ExtractFilePath(Application.ExeName)+'\';
ForceDirectories(sDir + 'TESTLOG');
sBackupFile := sDir + 'TESTLOG\'+FormatDateTime('YYYYMMDDHH',now())+'.log';
AssignFile(vFile, sBackupFile);
if FileExists(sBackupFile) then
Append(vFile)
else
Rewrite(vFile);
if not Err then
WriteLn(vFile, FormatDateTime('yyyy/mm/dd hh:mm:ss', Now) +' [Error ]' +' - ' + sTrlog)
else
WriteLn(vFile, FormatDateTime('yyyy/mm/dd hh:mm:ss', Now) +' [ ]' +' - ' + sTrlog);
CloseFile(vFile);
end;
posted on 2010-02-19 14:50
Ke 阅读(538)
评论(0) 编辑 收藏 所属分类:
delphi