Add(MainForm,1686861,196,35)
{
 Height=103
 Position=1
}
Add(Edit,775967,273,35)
{
 Left=20
 Top=5
 Width=140
 Text="123456789ABCDEFGHJ"
 ClearAfterEnter=1
 Point(doSelectAll)
 link(onEnter,16003841:doEvent1,[])
}
Add(InlineCode,9782296,364,42)
{
 WorkPoints=#6:doTest|
 EventPoints=#5:onRes|
 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|4:    |24:     onRes  : THI_Event;|51:     PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|31:var s,ss1,sss1,ss2,sss2:string;|14:    i:integer;|5:BEGIN|10:  ss1:='';|10:  ss2:='';|11:  sss1:='';|11:  sss2:='';|21:  s:=toString(_Data);|2:  |26:  for i:=1 to Length(s) do|8:   begin|77:   if s[i] in ['A'..'F','1'..'9'] then ss1:= ss1+ s[i] else ss2:= ss2 + s[i];|72:   if s[i] in ['1'..'8'] then sss1:= sss1+ s[i] else sss2:= sss2 + s[i];|6:  end;|51:  _hi_onEvent(onRes,ss1+';'+ss2+';'+sss1+';'+sss2);|4:END;|4:end.|
 link(onRes,5477732:doText,[])
}
Add(Hub,16003841,322,42)
{
 link(onEvent1,9782296:doTest,[])
 link(onEvent2,775967:doSelectAll,[(347,55)(347,74)(261,74)(261,55)])
}
Add(Edit,5477732,420,42)
{
 Left=20
 Top=40
 Width=355
 Text=""
}