我的LOG类

经常在写代码时要记录一些信息，或者说LOG。为方便起见，做出以下的类供调用：

 

type TMy_Log=class(TObject) private FLog:TStrings; FLogFile:string; public constructor Create; destructor Destroy; override; procedure Save;virtual; procedure Set_Log(value:string); published property Log:string write Set_Log; property FileName:string read FLogFile write FLogFile;end;constructor TMy_Log.Create;begin inherited Create; FLogFile:='log.txt'; FLog:=TStringList.Create;end;destructor TMy_Log.Destroy;begin FLog.Free; inherited;end;procedure TMy_Log.Save;var logFile:TFileStream; i:Integer;begin if self.FileName<>'' then begin if FileExists(self.FileName) then begin logFile:=TFileStream.Create(self.FileName,fmOpenReadWrite+fmShareDenyNone); end else begin logFile:=TFileStream.Create(self.FileName,fmCreate); end; logFile.Seek(0,soFromEnd); //定位到最后 for i:=0 to FLog.Count-1 do begin logFile.Write(pchar(FLog.Strings[i])^,Length(FLog.Strings[i])) end; FLog.Clear; end;end;procedure TMy_Log.Set_Log(value: string);begin if Trim(value)<>'' then begin FLog.Add(Value+FormatDateTime('yyyy_MM_dd hh:nn:ss',Now)); end;end;