Add(InlineCode,12065365,413,77)
{
 WorkPoints=#4:Init|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|24:    Old, New, fn:string;|16:    F:TextFile; |9:   public|33:    onNew, onOld, Path: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|30: fn := ReadString(_Data,Path);|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.|
}
Add(Edit,5832504,259,77)
{
 Left=10
 Top=10
 Width=310
 Text=""
 ReadOnly=0
 link(onChange,11015110:doEvent1,[])
}
Add(ODialog,15566471,196,77)
{
 link(onExecute,5832504:doText,[])
}
Add(Button,3508751,140,77)
{
 Left=325
 Top=10
 Width=35
 Caption="..."
 link(onClick,15566471:doExecute,[])
}
Add(Timer,3158890,357,91)
{
 Enable=1
 link(onTimer,12065365:doWork,[(401,97)(401,90)])
}
Add(Hub,11015110,315,77)
{
 link(onEvent1,12065365:Init,[])
 link(onEvent2,3158890:doTimer,[(343,90)(343,97)])
}