Tad писал(а):
Почему не использовать в кодах одно слово - RandomizeЯ повторил вашу схему на HiAsm'e, там в цикле у вас стоит Randomize. Ну, можно и убрать, проблем-то нет
------------ Дoбавленo в 17.29:
Tad, а вот integer ты зря убрал, на выходе-то не целый тип тогда будет, а дробный
------------ Дoбавленo в 17.34:
Ravilr, пример для перетасовки чисел лучше сделат так
Add(MainForm,11182862,252,231)
{
Left=20
Top=105
Width=154
Height=251
Caption="Пример использования Random"
}
Add(Random,5447273,329,287)
{
Max=9
Point(doRandomWithoutRepeats)
link(onRandom,5323340:doAdd,[(372,293)(372,272)])
}
Add(Button,12351317,252,273)
{
Left=10
Top=10
link(onClick,2706201:doEvent1,[])
}
Add(Memo,5323340,392,266)
{
Left=10
Top=40
Width=110
Height=160
}
Add(Hub,2706201,294,273)
{
link(onEvent1,5323340:doClear,[])
link(onEvent2,5447273:doRandomWithoutRepeats,[(318,286)(318,307)])
}
Для строк, что-то не совсем правильно работает
------------ Дoбавленo в 17.38:
Вот так для строк неплохо работает
Add(MainForm,11182862,280,378)
{
Left=20
Top=105
Width=154
Height=251
Caption="Пример использования Random"
}
Add(Random,5447273,280,329)
{
Max=9
Point(doRandomWithoutRepeats)
link(onRandom,879654:doEvent1,[])
}
Add(StrList,14407297,371,357)
{
Strings=#5:card0|5:card1|5:card2|5:card3|5:card4|5:card5|5:card6|5:card7|5:card8|5:card9|
Point(doSwap)
Point(Idx1)
link(Idx1,11515204:Random,[])
}
Add(Button,12351317,147,301)
{
Left=10
Top=10
link(onClick,12585925:doEvent1,[])
}
Add(Memo,5323340,441,434)
{
Left=10
Top=40
Width=110
Height=160
}
Add(DoData,15419462,371,434)
{
link(onEventData,5323340:doAdd,[])
link(Data,14407297:Text,[])
}
Add(Hub,879654,329,329)
{
link(onEvent1,11515204:doRandom,[(357,335)(357,314)])
link(onEvent2,14407297:doSwap,[(357,342)(357,405)])
}
Add(Hub,12585925,196,301)
{
OutCount=4
link(onEvent1,5323340:doClear,[(425,307)(425,447)])
link(onEvent2,11515204:doRandomize,[(298,314)(298,321)])
link(onEvent3,5447273:doRandomWithoutRepeats,[(240,321)(240,349)])
link(onEvent4,15419462:doData,[(231,328)(231,440)])
}
Add(Random,11515204,385,308)
{
Max=10
Point(doRandomWithoutRepeats)
}
Поиск
Друзья
Администрация