经常在写代码时要记录一些信息,或者说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;