uvcommonfunc.pas

[ Common Function Lib ] ## Function List LogWrite : LogWrite Function by two Parameter LogDelete1

unit uVCommonFunc;

interface

uses
  Windows, SysUtils, Forms;
  
type
  TVCommonFunc = class(TObject)
  private
  Public
    constructor Create();
    destructor Destory();
      
    procedure LogWrite(strTitle, str: String);
    procedure LogDelete100Day;  
  end;

implementation

{ TVCommonFunc }

constructor TVCommonFunc.Create;
begin
  inherited Create();
end;

destructor TVCommonFunc.Destory;
begin
  inherited Destroy;  
end;

procedure TVCommonFunc.LogDelete100Day;
var
  SearchRec : TSearchRec;
  dir : string;
  temp : String;
  a, b : TDateTime;
begin
  try
	  dir := ExtractFilePath(Application.ExeName) + '\Log\' + '*.Log';
	  if FindFirst(dir, faAnyFile - faDirectory, SearchRec) = 0 then
	  repeat
	   if Length(SearchRec.Name) >= 12 then
	     // 矫埃 厚背甫 困秦 颇老狼 捞抚俊辑 矫埃 沥焊甫 掘绢 颗
	     temp := Copy(SearchRec.Name, 3, 2) + '-' + Copy(SearchRec.Name, 5, 2) + '-' + Copy(SearchRec.Name, 7, 2)
	   else
	     Exit;

	    a := StrToDate(temp);
	    b := Date - 100;
	    if a < b then
	    begin
	      DeleteFile(ExtractFilePath(Application.ExeName) + '\Log\' + SearchRec.Name);
	    end;
	  until FindNext(SearchRec) <> 0;
	  FindClose(SearchRec);
  except
  end;
end;

procedure TVCommonFunc.LogWrite(strTitle, str: String);
var
  strDateTime : String;
  strDate : String;
  F : TextFile;
  strAdd : String;
  filePath : String;
begin
  Try
	  strDate := FormatDateTime('yyyymmdd', Now);
	  strDateTime := FormatDateTime('hh:mm:ss,zzz', Now);

    filePath := ExtractFilePath(Application.ExeName) + 'Log';
    strAdd := '[' + strDateTime + ']' + ' <' + strTitle + '> ' + str;

    // 父老 Directory 啊 绝栏搁 积己
    if not DirectoryExists(filePath) then
      mkDir(filePath);

    filePath := filePath + '\' + strDate + '.Log';
    AssignFile(F, filePath);
    FileMode := fmOpenReadWrite or fmShareDenyNone;

    // 扁粮俊 颇老捞 绝栏搁 货肺 父甸绊 弊犯瘤 臼栏搁 付瘤阜 扼牢俊 眠啊
    if FileSearch(PChar(filePath), '') <> '' then
      Append(F)
    else
    begin
      LogDelete100Day;
      ReWrite(F);
    end;

    Writeln(F, strAdd);
    //Flush(F);
    
    CloseFile(F);
  Except
    ;
  end;
end;

end.