Add(InlineCode,12065365,112,105)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onNew|5:onOld|
 DataPoints=#4:Path|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|20:   Old, New :string;|9:   public|32:   onNew, onOld, Path:THI_Event;|49:   procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doWork;|15:var F:TextFile;|14:    fn:string;|5:BEGIN|27: fn := toStringEvent(Path);|20:  AssignFile(F, fn);|11:  Reset(F);|16:  ReadLn(F,New);|15:  CloseFile(F);|61: If AnsiCompareText(New,Old)=0 then          // нет изменений|30:        _hi_onEvent(onOld,Old)|9:     else|11:      begin|17:        Old:=New;|30:        _hi_onEvent(onNew,Old)|10:      end;|4:END;|4:end.|
}