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.