Мне нужен предсказуемый генератор чисел, количество итераций не известно, но всегда известно какое число будет.
обычный рандом работает как надо каждый раз после запуска программы выдает те же значения, но если вызвать его 2-ой или 3-ий раз то значения не совпадают, на примерной схеме мне нужно что бы в каждом listbox были одинаковые значения.
Add(MainForm,2953706,42,35)
{
Width=590
}
Add(Random,11761833,336,84)
{
Max=255
link(onRandom,671532:doAdd,[])
}
Add(Random,16477768,336,189)
{
Max=255
link(onRandom,3132195:doAdd,[])
}
Add(ListBox,671532,434,84)
{
Left=100
Top=30
Width=95
Height=235
}
Add(ListBox,3132195,434,189)
{
Left=200
Top=30
Width=90
Height=235
}
Add(Button,16637802,42,77)
{
Left=15
Top=100
Height=55
link(onClick,3520621:doEvent1,[])
}
Add(ListBox,16317752,434,287)
{
Left=295
Top=30
Width=90
Height=235
}
Add(ListBox,15549370,434,399)
{
Left=390
Top=30
Width=90
Height=235
}
Add(ListBox,2261830,434,497)
{
Left=485
Top=30
Width=90
Height=235
}
Add(Random,8006678,336,287)
{
Max=255
link(onRandom,16317752:doAdd,[])
}
Add(Random,9035662,336,399)
{
Max=255
link(onRandom,15549370:doAdd,[])
}
Add(Random,456152,336,497)
{
Max=255
link(onRandom,2261830:doAdd,[])
}
Add(Edit,12006883,273,35)
{
Left=100
Top=5
Width=95
Text="20"
}
Add(For,12532950,266,84)
{
link(onEvent,11761833:doRandom,[])
link(End,12006883:Text,[])
}
Add(Edit,3917225,273,140)
{
Left=200
Top=5
Width=90
Text="160"
}
Add(For,9617449,266,189)
{
link(onEvent,16477768:doRandom,[])
link(End,3917225:Text,[])
}
Add(Edit,5946527,273,238)
{
Left=295
Top=5
Width=90
Text="70"
}
Add(For,10875568,266,287)
{
link(onEvent,8006678:doRandom,[])
link(End,5946527:Text,[])
}
Add(Edit,3110873,273,350)
{
Left=385
Top=5
Width=95
Text="5"
}
Add(For,1815500,266,399)
{
link(onEvent,9035662:doRandom,[])
link(End,3110873:Text,[])
}
Add(Edit,10656320,273,448)
{
Left=485
Top=5
Width=90
Text="600"
}
Add(For,12226564,266,497)
{
link(onEvent,456152:doRandom,[])
link(End,10656320:Text,[])
}
Add(Hub,3520621,98,77)
{
OutCount=6
link(onEvent1,8821856:doEvent1,[(147,83)(147,20)])
link(onEvent2,12532950:doFor,[])
link(onEvent3,9617449:doFor,[(221,97)(221,195)])
link(onEvent4,10875568:doFor,[(213,104)(213,293)])
link(onEvent5,1815500:doFor,[(207,111)(207,405)])
link(onEvent6,12226564:doFor,[(199,118)(199,503)])
}
Add(Hub,8821856,161,14)
{
OutCount=5
link(onEvent1,1932624:In,[])
link(onEvent2,9975457:In,[])
link(onEvent3,15264687:In,[])
link(onEvent4,6642361:In,[])
link(onEvent5,3441652:In,[])
}
Add(LineBreak,10479587,385,98)
{
link(Out,671532:doClear,[(425,104)(425,97)])
Primary=[1932624,-196,-84]
}
Add(LineBreak,12390187,385,203)
{
link(Out,3132195:doClear,[(425,209)(425,202)])
Primary=[9975457,-196,-182]
}
Add(LineBreak,12188424,385,301)
{
link(Out,16317752:doClear,[(425,307)(425,300)])
Primary=[15264687,-196,-273]
}
Add(LineBreak,12200862,385,413)
{
link(Out,15549370:doClear,[(425,419)(425,412)])
Primary=[6642361,-196,-378]
}
Add(LineBreak,2103520,385,511)
{
link(Out,2261830:doClear,[(425,517)(425,510)])
Primary=[3441652,-196,-469]
}
Снимок.PNG
Да и десяток Rnd не обязателен 
Установить оба FPC и 32, и 64.
Поиск
Друзья
Администрация