textlogerunit.pas

此软件是一个 日志服务器

unit textlogerunit;

interface
uses
  Windows, SysUtils, Classes;
  type
    Ttextloger = class(Tobject)
      LogStoredPath : string ;
      FileFormat : string ;
      TextFileVar : TextFile ;
    private
    { Private declarations }

    protected
    { protected declarations }
    public
    constructor create(dir:string;filename:string);
    function DoLog(str:String):boolean;
    function SetFileFormat(str:string):boolean;
    function SetLogStoredPath(str:string):boolean;
    end;
implementation

constructor Ttextloger.create(dir:string;filename:string);
begin
    if dir <> '' then
      LogStoredPath := dir
    else
      LogStoredPath := '.\log\';

    if filename <> '' then
      FileFormat := filename
    else
      filename := 'Log_';
end;

function Ttextloger.DoLog(str:String):boolean;
begin
    AssignFile(TextFileVar,LogStoredPath + FileFormat + DateToStr( date() ) + '.log');
    if not FileExists(LogStoredPath + FileFormat + DateToStr( date() ) + '.log') then
    ReWrite(TextFileVar)
    else
      ReSet(TextFileVar);
    Append(TextFileVar);
    WriteLn(TextFileVar,'-------------------------------');
    WriteLn(TextFileVar,DateToStr(date())+' && '+TimeToStr(time()));
    //开始记录程序需要记录的信息
    WriteLn(TextFileVar,str);
    //记录程序需要记录的信息,结束，开始收尾工作
    //writeLn(TextFileVar,'-------------------------------');
    CloseFile(TextFileVar);
    result := true ;
end;

function Ttextloger.SetFileFormat(str:string):boolean;
begin
result := true   ;
end;

function Ttextloger.SetLogStoredPath(str:string):boolean;
begin
result := false ;
end;
end.