Add(InlineCode,7330169,126,350)
{
 WorkPoints=#6:doWork|
 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|34:     onTrue,onFalse,int:THI_Event;|45:     procedure doWork(var dt:TData;idx:Word);|1: |5: end;|0:|14:implementation|29:procedure THiAsmClass.doWork;|7:  begin|142:    //if (ToIntegerEvent(int) mod 2) = 0 then _hi_OnEvent(onTrue, ToIntegerEvent(int)) else _hi_OnEvent(onFalse, ToIntegerEvent(int)); //V-1.1|4:    |143:    //if (ReadInteger(dt, int) mod 2) = 0 then _hi_OnEvent(onTrue, ReadInteger(dt,int)) else _hi_OnEvent(onFalse, ReadInteger(dt,int)); //V-1.2|4:    |160:    //if (ToIntegerEvent(int) mod 2) = 0 then _hi_CreateEvent(dt, @onTrue, ToIntegerEvent(int)) else _hi_CreateEvent(dt, @onFalse, ToIntegerEvent(int)); //V-2.1|4:    |161:    //if (ReadInteger(dt, int) mod 2) = 0 then _hi_CreateEvent(dt, @onTrue, ReadInteger(dt,int)) else _hi_CreateEvent(dt, @onFalse, ReadInteger(dt,int)); //V-2.2|6:  end;|4:end.|
}

procedure THiAsmClass.doWork;
  var i:integer;
  begin
  i:= ToIntegerEvent(int);
    If Odd(i) then _hi_OnEvent(onFalse, i) else  _hi_OnEvent(onTrue,i);
  end;

procedure THiAsmClass.doWork;
var i:integer;
  begin
  i:=ToIntegerEvent(int);
  Case Odd(i) of
    True : _hi_OnEvent(onFalse,i);
    False: _hi_OnEvent(onTrue,i);
  end;
end;