Delphi实用小function

Write Log

// strLog : the log content need write to log file;
// strFile: the compliete file path(include the file name) of the log file. e.g. C:\log.log;
procedure WriteLog(strLog, strFile: string);
var
   fLog: TextFile;
begin
   AssignFile(fLog, strFile);
   try
      if FileExists(strFile) then
         Append(fLog)
      else
         Rewrite(fLog);

      //ready to write log content
      Writeln(fLog,Format('%s -> %s', [FormatDateTime('hh:mm:ss',now()), strLog]) );
   finally
      CloseFile(fLog);
   end;
end;