Add(InlineCode,15475482,350,252)
{
 WorkPoints=#5:doGet|
 EventPoints=#5:onGet|
 VarPoints=#6:Rezult|4:Calc|
 DataPoints=#6:bbytes|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|14:     r:String;|9:   public|20:    onGet:THI_Event;|4:    |21:    bbytes:THI_Event;|4:    |49:    procedure doGet(var _Data:TData; Index:word);|50:    procedure Rezult(var _Data:TData; Index:word);|48:    procedure Calc(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|28:procedure THiAsmClass.doGet;|6:begin |46:   r:= Num2Bytes(ReadInteger(_Data,bbytes,0));|37:   _hi_CreateEvent(_data, @onGet, r);|4:end;|0:|27:procedure THiAsmClass.Calc;|5:begin|59:   dtString(_Data, Num2Bytes(ReadInteger(_Data,bbytes,0)));|4:end;|0:|29:procedure THiAsmClass.Rezult;|5:begin|22:   dtString(_Data, r);|4:end;|0:|0:|4:end.|
}