Вверх ↑
Разработчик
Ответов: 26170
Рейтинг: 2127
#1: 2013-10-17 12:44:07 ЛС | профиль | цитата
Вот еще, как вариант

Add(MainForm,13198001,98,175)
{
Width=473
Height=351
link(onCreate,7396795:doEvent1,[])
}
Add(StrList,4025601,336,133)
{
Strings=#9:1;2;3;4;a|9:1;2;3;4;a|9:1;2;3;4;a|
}
Add(For,7736160,273,203)
{
End=3
IncludeEnd=1
link(onEvent,5391179:doSet,[])
link(onStop,9623583:doTrim,[(312,216)(312,279)])
}
Add(Memo,15817866,588,273)
{
Left=80
Top=20
Width=185
Height=200
}
Add(StrCatDelim,15429116,532,203)
{
Delimiter=";"
Point(Delimiter)
Point(doClear)
link(Str1,12252438:Var1,[(538,194)(524,194)(524,247)])
link(Str2,4703391:Data,[(545,194)(573,194)(573,257)(412,257)])
}
Add(ChanelToIndex,4703391,406,203)
{
Count=5
Point(Data)
link(onIndex,16320156:doCompare,[])
}
Add(MultiSetParam,5391179,336,203)
{
Count=5
OutType=1
link(Parameters,4025601:Text,[])
link(onSet1,4703391:doWork1,[])
link(onSet2,4703391:doWork2,[])
link(onSet3,4703391:doWork3,[])
link(onSet4,4703391:doWork4,[])
link(onSet5,4703391:doWork5,[])
}
Add(For,5566944,189,196)
{
End=5
IncludeEnd=1
link(onEvent,14342440:doEvent1,[])
}
Add(Hub,7396795,147,189)
{
link(onEvent1,15817866:doClear,[(172,195)(172,314)(571,314)(571,286)])
link(onEvent2,5566944:doFor,[])
}
Add(GetDataEx,12252438,532,242)
{
link(Data,15429116:Result,[])
}
Add(If_else,16320156,462,203)
{
link(onTrue,15429116:doStrCatDlm,[])
link(Op1,5566944:Position,[(468,194)(454,194)(454,250)(195,250)])
}
Add(Hub,14342440,238,196)
{
link(onEvent1,15429116:doClear,[(263,202)(263,125)(501,125)(501,216)])
link(onEvent2,7736160:doFor,[])
}
Add(Trim,9623583,532,273)
{
Char=";"
link(onTrim,15817866:doAdd,[])
link(Text,12252438:Var2,[])
}

карма: 22

1
Голосовали:wasya