Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2018-05-27 11:39:08 ЛС | профиль | цитата
Всего на 21 компоненте (без подсказок)

Add(MainForm,2953706,224,203)
{
Width=727
Height=356
}
Add(Button,8291899,224,140)
{
Left=20
Top=265
link(onClick,13595547:doEnum,[])
}
Add(Str_Enum,2965254,434,168)
{
Delimiter=""
link(onEnum,14644966:doAdd,[])
link(onEndEnum,9874830:doEvent1,[(478,181)(478,209)])
}
Add(Memo,6718432,700,420)
{
Left=10
Top=30
Width=695
Height=215
Font=[Consolas,9,0,0,204]
}
Add(FormatStr,1038890,644,420)
{
DataCount=3
Mask="%1 %2 = %3"
link(onFString,6718432:doAdd,[])
link(Str1,13595547:Item,[(650,405)(279,405)])
link(Str2,1157603:Var2,[])
link(Str3,881695:Sum,[(664,408)(659,408)(659,464)(573,464)])
}
Add(ArrayEnum,13595547,273,140)
{
link(onItem,13686677:doEvent1,[])
link(Array,12237184:Array,[])
}
Add(Replace,7244097,350,168)
{
@Hint=#9:Удаляем 0|
SubStr="0"
link(onReplace,115627:doReplace,[])
AddHint(-7,-69,70,13,@Hint)
}
Add(Replace,115627,392,168)
{
@Hint=#15:Удаляем ПРОБЕЛЫ|
SubStr=" "
link(onReplace,2965254:doEnum,[])
AddHint(-12,-46,119,13,@Hint)
}
Add(StrList,14644966,553,168)
{
Point(doSort)
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,14644966:doDelete,[(600,181)(600,160)(541,160)(541,188)])
}
Add(Hub,9874830,483,203)
{
@Hint=#30:1 - Удаление НЕ поаторяющихся.|15:2 - Сортировка.|22:3 - Вывод результата. |
OutCount=3
link(onEvent1,14624525:doCount,[(532,209)(532,272)])
link(onEvent2,14644966:doSort,[])
link(onEvent3,14491832:doEnum,[(507,223)(507,363)])
AddHint(-59,13,21,13,OutCount)
AddHint(-185,36,185,39,@Hint)
}
Add(ArraySum,881695,567,420)
{
ArrayType=1
Delimiter=""
link(onSum,1038890:doString,[])
link(Array,88802:Var2,[])
}
Add(ArrayEnum,14491832,518,357)
{
link(onItem,5149530:doStrCat,[])
link(onEndEnum,881695:doSum,[(558,370)(558,426)])
link(Array,88802:Var1,[(524,306)])
}
Add(GetDataEx,88802,567,301)
{
link(Data,14644966:Array,[])
}
Add(StrCat,5149530,665,357)
{
Point(doClear)
link(Str1,1157603:Var3,[(671,344)(657,344)])
}
Add(GetDataEx,1157603,651,392)
{
Angle=1
link(Data,5149530:Result,[(671,397)])
}
Add(Hub,13686677,315,140)
{
OutCount=3
link(onEvent1,5149530:doClear,[(642,146)(642,370)])
link(onEvent2,14644966:doClear,[(516,153)(516,181)])
link(onEvent3,7244097:doReplace,[(343,160)(343,174)])
}
Add(ArrayCountRepeats,14624525,665,266)
{
ArrayType=1
link(onCount,15306022:doValue,[])
link(Array,88802:Var3,[(671,254)(581,254)(581,306)])
}
Add(If_else,2527290,763,266)
{
Op1=Integer(1)
link(onTrue,11035016:doData,[])
link(Op2,15306022:Value2,[(776,254)(753,254)(753,307)(727,307)])
}
Add(DoData,11035016,812,266)
{
link(onEventData,14644966:doGetIndex,[(860,272)(860,242)(542,242)(542,223)])
link(Data,15306022:Value1,[(818,253)(800,253)(800,312)(720,312)])
}
Add(StrList,12237184,259,77)
{
Strings=#40:41021811320118 32151112065 26052018 1600|40:41021811320118 22615101219 26052018 1600|41:361961310 1515 141618131621 26052018 1630|13:26052018 1630|0:|38:161912118261141519 11012 26052018 1600|31:32201910122061519 26052018 1600|0:|25:20311261819 26052018 1600|34:31154613302316133014 26052018 1600|13:26052018 1630|0:|
}
Add(MT_MultiMem,15306022,714,266)
{
link(onData,2527290:doCompare,[])
}
Add(InfoTip,13122963,469,336)
{
Info=#16:ВЫВОД РЕЗУЛЬТАТА|
Font=[MS Sans Serif,8,1,255,1]
VAlign=2
Width=274
Height=158
Margin=3
}
Add(InfoTip,2344210,658,210)
{
Info=#18:УДАЛЯЕМ НЕ ПОВТОРЫ|
Font=[MS Sans Serif,8,5,255,1]
Width=225
Height=116
Margin=3
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2018-05-27 11:50:36