У компонента Rnd специально для вас точка для предустановки генератора doRandSeed Да и десяток Rnd не обязателен
Пример
Add(MainForm,14632992,252,70)
{
Width=590
Height=340
}
Add(Random,11761833,462,189)
{
Max=255
Point(doRandSeed)
link(onRandom,8253213:doAdd,[])
}
Add(ListBox,671532,553,231)
{
Left=100
Top=30
Width=95
Height=235
}
Add(ListBox,3132195,560,238)
{
Left=200
Top=30
Width=90
Height=235
}
Add(Button,16637802,252,119)
{
Left=15
Top=100
Height=55
link(onClick,5937647:doFor,[])
}
Add(ListBox,16317752,567,245)
{
Left=295
Top=30
Width=90
Height=235
}
Add(ListBox,15549370,574,252)
{
Left=390
Top=30
Width=90
Height=235
}
Add(ListBox,2261830,581,259)
{
Left=485
Top=30
Width=90
Height=235
}
Add(Edit,12006883,371,70)
{
Left=100
Top=5
Width=95
Text="20"
}
Add(For,12532950,364,189)
{
link(onEvent,11761833:doRandom,[])
link(onStop,15947318:doEvent,[(403,202)(403,258)])
link(End,12535551:Var,[])
}
Add(Edit,3917225,378,70)
{
Left=200
Top=5
Width=90
Text="160"
}
Add(Edit,5946527,385,70)
{
Left=295
Top=5
Width=90
Text="70"
}
Add(Edit,3110873,392,70)
{
Left=385
Top=5
Width=95
Text="5"
}
Add(Edit,10656320,399,70)
{
Left=485
Top=5
Width=90
Text="600"
}
Add(Edit,13428692,441,70)
{
Left=105
Top=270
Width=90
Text="123654"
DataType=2
}
Add(Edit,896216,448,70)
{
Left=205
Top=270
Width=85
Text="234567"
DataType=2
}
Add(Edit,9237807,455,70)
{
Left=295
Top=270
Width=90
Text="345678"
DataType=2
}
Add(Edit,11639603,462,70)
{
Left=390
Top=270
Width=90
Text="456789"
DataType=2
}
Add(Edit,7165676,469,70)
{
Left=485
Top=270
Width=85
Text="678912"
DataType=2
}
Add(DoData,6573104,420,203)
{
link(onEventData,11761833:doRandSeed,[])
link(Data,16061967:Var,[(426,166)(447,166)])
}
Add(Hub,15080774,329,168)
{
OutCount=3
link(onEvent1,8253213:doClear,[(501,174)(501,202)])
link(onEvent2,6573104:doData,[(410,181)(410,209)])
link(onEvent3,12532950:doFor,[(354,188)(354,195)])
}
Add(For,5937647,308,119)
{
End=4
link(onEvent,12535551:doIndex,[])
}
Add(GetIndexData,12535551,371,119)
{
Count=5
link(onIndex,16061967:doIndex,[])
link(Data1,12006883:Text,[])
link(Data2,3917225:Text,[])
link(Data3,5946527:Text,[])
link(Data4,3110873:Text,[])
link(Data5,10656320:Text,[])
}
Add(GetIndexData,16061967,441,119)
{
Count=5
link(onIndex,15080774:doEvent1,[(487,125)(487,160)(319,160)(319,174)])
link(Data1,13428692:Text,[])
link(Data2,896216:Text,[])
link(Data3,9237807:Text,[])
link(Data4,11639603:Text,[])
link(Data5,7165676:Text,[])
}
Add(IndexToChanel,15947318,504,252)
{
Count=5
Point(Index)
Point(Data)
link(onEvent1,671532:doText,[])
link(onEvent2,3132195:doText,[])
link(onEvent3,16317752:doText,[])
link(onEvent4,15549370:doText,[])
link(onEvent5,2261830:doText,[])
link(Index,5937647:Position,[(510,243)(314,243)])
link(Data,8253213:Text,[])
}
Add(StrList,8253213,511,189)
{
}