Add(MainForm,2953706,70,77)
{
 link(onCreate,12041830:doWork2,[])
}
Add(Edit,11667738,175,77)
{
 Left=25
 Top=5
 Width=335
 Text=""
 link(onEnter,12041830:doWork1,[(214,90)(214,69)(109,69)(109,90)])
}
Add(Button,4909695,119,147)
{
 Left=20
 Top=30
 Caption=">>"
 link(onClick,8201177:doCalc,[])
}
Add(MultiElement,12041830,119,84)
{
 link(onEvent1,11667738:doText2,[])
 link(Data1,10715883:Var1,[(125,75)(160,75)(160,117)])
}
BEGIN_SDK
  Add(EditMulti,13878576,21,21)
  {
   EventCount=1
   WorkCount=2
   DataCount=1
   VOffset=49
   HOffset=203
   link(doWork1,6092320:doTimer,[(32,76)(32,48)])
   link(doWork2,9943625:doEvent1,[])
  }
  Add(For,202440,119,84)
  {
   End=49
   link(onEvent,6587477:doRandom,[])
  }
  Add(Random,6587477,175,84)
  {
   Max=9
   link(onRandom,1504020:doStrCat,[])
  }
  Add(Hub,9943625,77,77)
  {
   link(onEvent1,6587477:doRandomize,[(158,83)(158,97)])
   link(onEvent2,7526591:doWork2,[])
  }
  Add(StrCat,1504020,224,84)
  {
   link(onStrCat,13878576:onEvent1,[(263,90)(263,77)])
   link(Str1,13878576:Data1,[])
  }
  Add(Timer,6092320,63,42)
  {
   Interval=10
   Enable=1
   AutoStop=1
   link(onTimer,7526591:doWork1,[(102,48)])
  }
  Add(HubEx,7526591,98,84)
  {
   link(onEvent,202440:doFor,[])
  }
END_SDK
Add(Memo,16698297,231,126)
{
 Left=5
 Top=60
 Width=375
 Height=195
}
Add(MultiElementEx,8201177,175,147)
{
 link(String,10715883:Var2,[])
 link(onRes,16698297:doText,[])
}
BEGIN_SDK
  Add(EditMultiEx,12596441,21,21)
  {
   WorkCount=#6:doCalc|
   EventCount=#5:onRes|
   DataCount=#6:String|
   Width=629
   Height=389
   VOffset=35
   HOffset=63
   link(doCalc,15322850:doEvent1,[])
  }
  Add(Str_Enum,5424589,175,77)
  {
   Delimiter=""
   link(onEnum,2986584:doAdd,[])
   link(onEndEnum,6783673:doCount,[(221,90)(221,146)])
  }
  Add(StrList,2986584,238,77)
  {
  }
  Add(Hub,15322850,49,56)
  {
   OutCount=3
   link(onEvent1,9973921:doClear,[(340,62)(340,153)])
   link(onEvent2,2986584:doClear,[(228,69)(228,90)])
   link(onEvent3,12183542:doValue,[(74,76)(74,83)])
  }
  Add(ArrayCountRepeats,6783673,252,140)
  {
   link(onCount,11874207:doStr,[])
   link(onEndCount,12871743:doEvent1,[(291,153)(291,188)])
   link(Array,2986584:Array,[])
  }
  Add(MT_String,11874207,301,140)
  {
   link(onResult,9973921:doAdd,[])
  }
  Add(StrList,9973921,350,140)
  {
   Point(doSort)
  }
  Add(Hub,12871743,301,182)
  {
   OutCount=5
   link(onEvent1,9973921:doSort,[])
   link(onEvent2,8631628:doClear,[(578,195)(578,293)])
   link(onEvent3,344027:doClear,[(326,202)(326,293)])
   link(onEvent5,1952402:doEnum,[])
  }
  Add(InlineCode,510778,126,77)
  {
   WorkPoints=#6:doTest|
   EventPoints=#5:onRes|
   VarPoints=#
   DataPoints=#
   Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|24:     onRes  : THI_Event;|51:     PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|16:var s,ss:string;|18:    i,j,k:integer;|5:BEGIN|9:  ss:='';|21:  s:=toString(_Data);|15:  j:=Length(s);|67:   for i:=1 to j do if s[i] in ['0'..'9'] then  ss:=ss+s[i];       |24:  _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
   link(onRes,5424589:doEnum,[])
  }
  Add(ArrayEnum,1952402,364,210)
  {
   link(onItem,8448400:doSplit,[])
   link(onEndEnum,14183873:doString,[(403,223)(403,363)])
   link(Array,9973921:Array,[])
  }
  Add(MultiStrPart,8448400,427,210)
  {
   link(onSplit,344027:doCalc,[(469,216)(469,272)(417,272)(417,286)])
  }
  Add(MathParse,344027,427,280)
  {
   MathStr="%0 + %1*%2"
   ResultType=0
   Point(doClear)
   link(onResult,3584995:doCompare,[])
   link(X1,2121676:Var2,[])
   link(X2,1443426:Var2,[])
  }
  Add(Memory,12183542,84,77)
  {
   Point(Data)
   link(onData,510778:doTest,[])
   link(Data,12596441:String,[])
  }
  Add(For,3185586,539,280)
  {
   IncludeEnd=1
   link(onEvent,8631628:doStrCat,[])
   link(End,1443426:Var3,[(552,250)])
  }
  Add(GetDataEx,1443426,434,245)
  {
   link(Data,8448400:Part2,[])
  }
  Add(If_else,3584995,476,280)
  {
   Type=5
   Op2=String(0)
   link(onTrue,3185586:doFor,[])
   link(Op1,1381009:Var2,[])
  }
  Add(GetDataEx,2121676,427,252)
  {
   link(Data,8448400:Part1,[])
  }
  Add(StrCat,8631628,595,280)
  {
   Point(doClear)
   link(Str1,7680469:Var3,[(601,271)(587,271)])
   link(Str2,1381009:Var3,[(608,257)])
  }
  Add(GetDataEx,1381009,476,252)
  {
   Angle=3
   link(Data,2121676:Var3,[])
  }
  Add(FormatStr,14183873,546,357)
  {
   DataCount=3
   Mask="%1 %2 %3"
   link(onFString,12596441:onRes,[(634,363)(634,62)])
   link(Str1,12183542:Value,[(552,348)(90,348)])
   link(Str2,7680469:Var2,[(559,327)(587,327)])
   link(Str3,344027:Result,[(566,341)(433,341)])
  }
  Add(GetDataEx,7680469,581,315)
  {
   Angle=1
   link(Data,8631628:Result,[(601,320)])
  }
END_SDK
Add(GetDataEx,10715883,175,112)
{
 link(Data,11667738:Text,[])
}