產生文字檔記錄Log

procedure Form1.Log(sString: string);
var
  SearchRec: TSearchRec;
  sSavePath:String;
  F_LogFile: TextFile;
begin
  try
    edMsg.Text := FormatDateTime('YYYY/MM/DD HH:NN:SS', Now)+#9+sString;
    //
    sSavePath := ExtractFilePath(Application.ExeName);
    if FindFirst(sSavePath + '\'+F_LogFileName, faAnyFile, SearchRec) = 0 then begin
      if SearchRec.Size > 1000000 then
        DeleteFile(sSavePath + '\'+F_LogFileName);
      SysUtils.FindClose(SearchRec);
    end;
    //
    if not DirectoryExists(sSavePath) then
      CreateDir(sSavePath);
    AssignFile(F_LogFile, sSavePath + '\'+F_LogFileName);
    if FileExists(sSavePath + '\'+F_LogFileName) then
      Append(F_logFile)
    else
      ReWrite(F_LogFile);
    Writeln(F_LogFile, FormatDateTime('YYYY/MM/DD HH:NN:SS', Now) + #9 + sString);
    CloseFile(F_LogFile);
  except
  end;
end;