Add(MainForm,2953706,196,28)
{
 Width=588
 Caption="Sum"
 link(onCreate,1198026:doRandomize,[(238,48)(238,104)])
}
Add(InlineCode,3185247,245,196)
{
 @Hint=#22:Расшифровка кода Морзе|
 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|25:    _data_Data:THI_Event;|20:    onRes:THI_Event;|50:    procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|14:var St:string;|20:    Rs,Ln,i:integer;|5:begin|24:   St:= ToString(_Data);|19:   Ln:= Length(St);|9:   Rs:=0;|47:     for i:=1 to Ln do Rs:=Rs + str2int(St[i]);|25:   _hi_onEvent(onRes,Rs);|4:end;|0:|4:end.|
 Name="Sum"
 link(onRes,12510832:doValue,[])
}
Add(Random,1198026,245,91)
{
 Max=9
 link(onRandom,14563948:doStrCat,[])
}
Add(For,779362,196,91)
{
 Start=1
 InData=0
 link(onEvent,1198026:doRandom,[])
 link(onStop,15769021:doData,[(233,104)(233,146)])
 link(End,6562397:Var1,[(209,85)(190,85)])
}
Add(StrCat,14563948,294,91)
{
 Point(doClear)
 link(Str1,3275765:Var1,[(300,79)(288,79)(288,135)])
}
Add(Button,13146583,126,189)
{
 Left=15
 Top=240
 Caption="Calc"
 link(onClick,3501547:doEvent1,[])
}
Add(Memo,11355729,364,119)
{
 Left=5
 Top=25
 Width=570
 Height=205
 ScrollBars=2
}
Add(DoData,13124005,196,196)
{
 link(onEventData,3185247:doWork,[])
 link(Data,3275765:Var2,[(202,154)(300,154)])
}
Add(TimeCounter,985869,329,189)
{
 link(onStop,6478257:doString,[])
}
Add(Hub,3501547,168,189)
{
 link(onEvent1,985869:doStart,[])
 link(onEvent2,13124005:doData,[])
}
Add(Memory,12510832,287,196)
{
 link(onData,985869:doStop,[])
}
Add(Label,9943096,420,196)
{
 Left=85
 Top=240
 Width=4
 Height=4
 Caption=""
}
Add(FormatStr,6478257,378,196)
{
 DataCount=3
 Mask="Сумма %3 цифр равна %1 и подсчитана за %2 мсек"
 link(onFString,9943096:doText,[])
 link(Str1,12510832:Value,[(384,184)(369,184)(369,240)(293,240)])
 link(Str3,6562397:Var2,[(398,177)(190,177)])
}
Add(GetDataEx,3275765,294,130)
{
 link(Data,14563948:Result,[])
}
Add(DoData,15769021,315,140)
{
 link(onEventData,11355729:doText,[])
 link(Data,3275765:Var3,[(321,135)])
}
Add(Edit,14444265,126,70)
{
 Left=135
 Top=3
 Text="100000"
 DataType=2
 link(onEnter,6604440:doEvent1,[])
}
Add(Label,3638808,126,28)
{
 Left=5
 Top=5
 Width=133
 Height=17
 Caption="Сгенерировать строку из"
}
Add(Label,13592740,126,140)
{
 Left=185
 Top=5
 Width=30
 Height=17
 Caption="цифр"
}
Add(Hub,6604440,168,77)
{
 OutCount=3
 link(onEvent1,14444265:doText2,[(193,83)(193,64)(114,64)(114,83)])
 link(onEvent2,14563948:doClear,[(283,90)(283,104)])
 link(onEvent3,779362:doFor,[])
}
Add(GetDataEx,6562397,184,108)
{
 Angle=3
 link(Data,14444265:Text,[(132,113)])
}