Вверх ↑
Разработчик
Ответов: 26109
Рейтинг: 2124
#1: 2008-02-19 10:08:22 ЛС | профиль | цитата
Вот еще решение вопроса для любой последовательности повторов



Add(MainForm,12492901,140,266)
{
Left=20
Top=105
}
Add(ListBox,5160984,238,238)
{
Left=90
Top=10
Height=240
Strings=#1:1|2:13|1:1|1:2|1:3|1:4|1:4|1:5|1:6|1:7|1:7|1:8|1:9|2:10|1:9|2:11|2:12|2:12|2:13|2:14|2:15|
}
Add(Button,16015241,140,315)
{
Left=155
Top=50
link(onClick,15061856:doEvent1,[])
}
Add(ArrayEnum,7819650,252,322)
{
link(onItem,7443081:doEvent1,[])
link(Array,5160984:Array,[])
}
Add(Memo,2200753,357,238)
{
Left=220
Top=10
Height=240
link(Str,8303552:Var1,[(363,226)(229,226)(229,394)])
}
Add(Switch,7775671,483,315)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(onOn)
Point(State)
link(onOn,2688519:doStop,[(527,328)(527,377)(359,377)(359,342)])
}
Add(Hub,7443081,315,322)
{
link(onEvent1,7775671:doReset,[])
link(onEvent2,2688519:doEnum,[])
}
Add(GetDataEx,8303552,245,385)
{
link(Data,7819650:Item,[])
}
Add(Hub,15061856,189,315)
{
link(onEvent1,2200753:doClear,[(272,321)(272,251)])
link(onEvent2,7819650:doEnum,[])
}
Add(ArrayEnum,2688519,371,329)
{
onBreakEnable=0
link(onItem,7250956:doCompare,[])
link(onEndEnum,2200753:doAdd,[(415,342)(415,304)(345,304)(345,244)])
link(Array,2200753:Array,[])
}
Add(If_else,7250956,427,329)
{
link(onTrue,7775671:doSwitch,[(471,335)(471,321)])
link(Op1,8303552:Var3,[(433,317)(300,317)(300,394)])
}

карма: 22

0