Add(InlineCode,6238456,196,112)
{
 WorkPoints=#7:doParse|
 EventPoints=#5:onRes|
 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|26:     _data_Data:THI_Event;|19:     Str:THI_Event;|22:     onRes: THI_Event;|4:    |49:	 procedure doParse(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doParse;|16:var s,ss:string;|16:    i,n:integer;|5:begin|9:  ss:='';|7:  n:=0;|32:  s:=ReadString(_Data, Str, '');|23:   if s = '' then Exit;|30:  for i:=Length(s) downto 1 do|8:   begin|38:     if s[i] in ['0'..'9'] then n:=n+1|13:	  else n:=0;|14:	 if n>=3 then|8:	  begin|20:	   ss:=' '+s[i]+ss;|9:	   n:=0;|7:	  end |20:	 else  ss:=s[i]+ss;|7:	      |7:   end;|24:  _hi_onEvent(onRes,ss);|4:end;|0:|4:end.|
 link(onRes,10855463:doAdd,[])
 link(Str,15841156:Item,[(202,103)(188,103)(188,152)(153,152)])
}
Add(Memo,3132979,133,35)
{
 Left=10
 Top=10
 Width=310
 Strings=#10:1234567,89|9:987654321|33:hjhjhl 1234567890.25 uytioutyuoio|16:dadag 31415926  |
}
Add(Memo,10855463,259,112)
{
 Left=10
 Top=145
 Width=305
}
Add(Button,6621309,63,105)
{
 Left=30
 Top=105
 Caption=">>"
 link(onClick,8493139:doEvent1,[])
}
Add(Hub,8493139,112,105)
{
 link(onEvent1,10855463:doClear,[(244,111)(244,125)])
 link(onEvent2,15841156:doEnum,[])
}
Add(ArrayEnum,15841156,147,112)
{
 link(onItem,6238456:doParse,[])
 link(Array,3132979:Array,[])
}