log.pas

these are some texts and original program,they are very useful for transportation reserch.

unit Log;

interface
uses
  sysutils;

  procedure WriteLog(filename,msg:String);overload;
  procedure WriteLog(msg:String);overload;
  procedure WriteLogToday(msg:String);

implementation
procedure WriteLog(filename,msg:String);
var
  F:TextFile;
begin
  AssignFile(F,filename);
  try
    if FileExists(filename) then
      Append(F)
    else
      ReWrite(F);
    try
      WriteLn(F,DateTimeToStr(Now())+':'+msg);
      Flush(F);
    finally
      CloseFile(F);
    end;
  except
  end;
end;

procedure WriteLog(msg:String);
begin
  CreateDir('.\log\');
  WriteLog('.\log\wlog.log',msg);
end;

procedure WriteLogToday(msg:String);
var
  str:String;
begin
  DateTimeToString(str,'yymmdd',Now);
  CreateDir('.\log\');
  WriteLog('.\log\'+str+'.log',msg);
end;

end.