Add(InlineCode,11542230,406,441)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:onWork|
 DataPoints=#3:Str|
 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|24:   Str,onWork:THI_Event;|49:   Procedure doWork(var _Data:Tdata; Index:Word);|0:|5: end;|0:|14:implementation|29:Procedure THiAsmClass.doWork;|3:var|13:  ss: string;|13:  i: integer;|5:begin|30: ss := ReadString(_Data, str);|29: for i := 1 to Length(ss) do |45:   ss[i] := Char((ord(ss[i]) xor $31) + $30);|39:  _hi_CreateEvent(_Data, @onWork, ss); |4:end;|0:|4:end.|
}