Add(InlineCode,11355100,189,112)
{
 WorkPoints=#7:doClear|6:doNext|
 EventPoints=#3:Res|
 Code=#15:unit HiAsmUnit;|6:// Tad|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|16:   fRes:integer;|9:   public|17:   Res:THI_Event;|49:   Procedure doNext(var _Data:TData; Index:Word);|50:   Procedure doClear(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|30:Procedure THiAsmClass.doClear;|19:begin fres:=0; end;|29:Procedure THiAsmClass.doNext;|5:begin|11: inc(fres);|23: _hi_onEvent(Res,fRes);|4:end;|4:end.|
}