Например так:
[code:1] Add(Random,12986755,210,383)
{
Max=4
link(onRandom,1209958:doEvent1,[(250,389)(250,389)])
}
Add(Button,1039658,98,390)
{
Left=20
Top=10
Caption="Start"
link(onClick,13762172:doEvent1,[])
}
Add(ListBox,2035279,399,383)
{
Left=250
Top=5
Width=140
Height=200
}
Add(Hub,13762172,154,390)
{
InCount=2
link(onEvent1,12986755:doRandomize,[])
link(onEvent2,12986755:doRandom,[(198,403)(198,389)])
}
Add(Hub,1209958,259,383)
{
OutCount=3
link(onEvent1,11349558:doRead,[(313,389)(313,389)])
link(onEvent2,14036502:doDelete,[(306,396)(306,326)])
link(onEvent3,7554244:doCompare,[(305,403)(305,452)])
}
Add(If_else,7554244,406,446)
{
Type=5
Op2=Integer(4)
link(onTrue,13762172:doEvent2,[(446,452)(446,439)(144,439)(144,403)])
link(Op1,2035279:Count,[])
}
Add(ListBox,14036502,322,306)
{
Left=100
Top=5
Width=140
Height=200
Strings=#1:1|1:2|1:3|1:4|
}
Add(ArrayRW,11349558,336,383)
{
link(onRead,2035279:doAdd,[(383,389)(383,389)])
link(Array,14036502:Array,[(342,364)(342,364)])
}
Add(Button,9475388,98,54)
{
Left=20
Top=40
Caption="New"
link(onClick,8604892:doEvent1,[(142,60)(142,60)])
}
Add(Hub,8604892,154,54)
{
OutCount=6
link(onEvent1,2035279:doClear,[(199,60)(199,20)(307,20)(307,301)(390,301)(390,396)])
link(onEvent2,14036502:doClear,[(200,67)(200,21)(306,21)(306,319)])
link(onEvent3,5885380:doData,[(198,74)(198,74)])
link(onEvent4,15526672:doData,[(198,81)(198,158)])
link(onEvent5,593644:doData,[(197,88)(197,242)])
link(onEvent6,14428460:doData,[(196,95)(196,326)])
}
Add(Edit,8209988,210,26)
{
Left=20
Top=70
Text="Раз"
}
Add(Edit,14427549,210,110)
{
Left=20
Top=95
Text="Два"
}
Add(Edit,15913984,210,194)
{
Left=20
Top=120
Text="Три"
}
Add(Edit,13263904,210,278)
{
Left=20
Top=145
Text="Четыре"
}
Add(DoData,5885380,210,68)
{
link(onEventData,1146675:doEvent1,[(252,74)(252,305)])
link(Data,8209988:Text,[(216,63)(216,63)])
}
Add(DoData,15526672,210,152)
{
link(onEventData,1146675:doEvent2,[(251,158)(251,312)])
link(Data,14427549:Text,[])
}
Add(DoData,593644,210,236)
{
link(onEventData,1146675:doEvent3,[(250,242)(250,319)])
link(Data,15913984:Text,[])
}
Add(DoData,14428460,210,320)
{
link(onEventData,1146675:doEvent4,[(292,326)(250,326)])
link(Data,13263904:Text,[])
}
Add(Hub,1146675,259,299)
{
InCount=4
link(onEvent2,14036502:doAdd,[(306,312)(306,312)])
}
[/code:1]
Единственное ограничение:
В компонентах Random (Max) и If_else (Op2) должно стоять одинаковое значение (у нас это четыре). Компонент ListBox(Strings) должен содержать такое же (четыре) количество элементов (можно больше, но не меньше - будут глюки).
Недостаток: при большом кол-ве элементов и плохой работе рандома ;) будет много промахов.