Add(InlineCode,12065365,413,77)
{
 WorkPoints=#4:Init|6:doWork|
 EventPoints=#5:onNew|5:onOld|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|24:    Old, New, fn:string;|16:    F:TextFile; |9:   public|27:    onNew, onOld:THI_Event;|48:    procedure Init(var _Data:TData; Index:Word);|50:    procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|27:procedure THiAsmClass.Init;|5:begin|23: fn := toString(_Data);|20:  AssignFile(F, fn);|4:end;|0:|29:procedure THiAsmClass.doWork;|5:BEGIN|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.|
}