ulog.pas

来自「DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传DAD2」· PAS 代码 · 共 54 行

unit uLog;

interface
uses SysUtils, Classes;

procedure logit(s: string);

var
  m_log_sl: TStringlist;
implementation

procedure logit(s: string);
var
  F: TextFile;
  bFileExist: boolean;

begin

  if m_log_sl = nil then
  begin
    m_log_sl := TStringlist.Create;
  end;
  m_log_sl.Text := s;
  try
    AssignFile(F, 'c:\log.txt');
    Append(f);
    bFileExist := true;
  except
    bFileExist := false;

  end;
  if not bFileExist then
  begin
    try
      rewrite(f);
    except
    end;
  end;

  try
    try
      Write(f, FormatDateTime('yyyy-mm-dd hh:nn:ss ', now) + m_log_sl.text);
    except
    end;
  finally
    CloseFile(F);
    m_log_sl.Clear;
  end;

end;

end.