_log_entry_error Procedure |
Unit
Unit5
Declaration
Procedure _log_entry_error(class_: string; msg_: string; desc_: string);Implementation
procedure _log_entry_error(class_:String; msg_:String; desc_:String); begin if form2.get_ini_params('system','log_file')='1' then begin form2._log.Add('[ERR '+DateTimeToStr(now)+'] : Error on Module '+class_+' > '+msg_+' :: '+desc_); form2._log.SaveToFile(form2.root+'wikibrowse.log'); end; End; |
|