Add(MainForm,12397248,105,217)
{
 Width=709
 Height=366
}
Add(InlineCode,396202,217,266)
{
 WorkPoints=#6:doWork|
 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|4:    |9:   public|22:     onRes: THI_Event;|48:     procedure doWork(var dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|55:procedure THiAsmClass.doWork(var dt: TData; idx: word);|35:var arrStr: array [1..9] of string;|22:    sIn,sOut: string; |23:    i,iRes: integer;   |5:begin|44:  sIn := ToString(dt); iRes := 0; sOut:=''; |57:  IF sin='' then begin   _hi_OnEvent(onRes,''); exit end;|36:  for i:= 1 to 9 do arrStr[i] := '';|120:  for i := 1 to Length(sIn) do IF sin[i] in ['1'..'9'] then arrStr[Str2Int(sin[i])] := arrStr[Str2Int(sin[i])] + sin[i];|20:  for i := 1 to 9 do|33:    if Length(arrStr[i]) > 1 then|11:      begin|33:        sOut := sOut + arrStr[i];|45:        iRes := iRes + (Length(arrStr[i])*i);|10:      end;|68:  _hi_OnEvent(onRes,sin + '    '+ sOut + '    =' + Int2Str(iRes));  |4:end;|0:|4:end.|
 link(onRes,6718432:doAdd,[])
}
Add(Button,8291899,98,259)
{
 Left=20
 Top=265
 link(onClick,14614018:doEvent1,[])
}
Add(ArrayEnum,13595547,168,266)
{
 link(onItem,396202:doWork,[])
 link(Array,11809262:Array,[])
}
Add(Memo,6718432,273,266)
{
 Left=10
 Top=30
 Width=695
 Height=215
 Font=[Consolas,9,0,0,204]
}
Add(Hub,14614018,140,259)
{
 link(onEvent1,6718432:doClear,[(260,265)(260,279)])
 link(onEvent2,13595547:doEnum,[])
}
Add(StrList,11809262,154,203)
{
 Strings=#40:41021811320118 32151112065 26052018 1600|40:41021811320118 22615101219 26052018 1600|0:|41:361961310 1515 141618131621 26052018 1630|22:bucovice 26052018 1630|0:|38:161912118261141519 11012 26052018 1600|31:32201910122061519 26052018 1600|0:|25:20311261819 26052018 1600|34:31154613302316133014 26052018 1600|0:|
}