Add(InlineCode,7330169,224,168)
{
 WorkPoints=#6:doTest|
 EventPoints=#6:onTrue|7:onFalse|
 DataPoints=#3:int|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|20:   onTrue:THI_Event;|21:   onFalse:THI_Event;|17:   int:THI_Event;|45:   procedure doTest(var dt:TData;Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doTest;|5:begin|96:if (ReadInteger(dt, int) mod 2) = 0 then _hi_OnEvent(onTrue, dt) else _hi_OnEvent(onFalse, dt); |4:end;|0:|4:end.|
}