Вверх ↑
Ответов: 4641
Рейтинг: 334
#1: 2009-12-17 10:48:16 ЛС | профиль | цитата
nesco писал(а):
он не даст гарантированное количество неповторяемых значений

над гарантией не старался. если постараться то можно получить.

------------ Дoбавленo в 11.26:
nesco, а так сойдет?


Add(MainForm,16577611,21,98)
{
link(onCreate,8211032:doFor,[])
}
Add(StrList,7129927,238,112)
{
Point(doGetString)
Point(onGetString)
link(onGetString,3501976:doCompare,[])
}
Add(Random,77841,140,119)
{
Max=99
link(onRandom,11152764:doEvent1,[])
}
Add(ListBox,2122520,350,119)
{
Left=10
Top=10
Width=360
Height=235
}
Add(For,8211032,77,112)
{
End=99
link(onEvent,7129927:doAdd,[])
link(onStop,10948686:doWork2,[])
}
Add(Hub,11152764,189,119)
{
OutCount=3
link(onEvent1,7129927:doGetString,[(221,125)(221,160)])
link(onEvent2,7129927:doDelete,[])
link(onEvent3,12950205:doCompare,[(214,139)(214,188)])
}
Add(If_else,12950205,238,182)
{
Op1=Integer(0)
link(onFalse,10948686:doWork3,[(285,195)(285,228)(123,228)])
link(Op2,7129927:Count,[])
}
Add(HubEx,10948686,119,119)
{
link(onEvent,77841:doRandom,[])
}
Add(If_else,3501976,294,119)
{
Type=4
Op2=Integer(0)
link(onTrue,2122520:doAdd,[])
}



ниже 95.67.150.143, был Я.

карма: 1
Время верстки: %cr_time% Текущее время: %time%
0