Я вобще-то понял это все, и сути это не меняет совсем. У тебя 15 элементов заполняются нолями и ты тупо продолжаешь открывать процедуры RList пока не заполниш ими всю память. Делай как говорил я или придумывай другой способ как контролировать количество открытых RList.
Во, единственное что я забыл так это обнулять переменную fuck если New[r] <> 0, то есть:
Цитата:
else
begin
ListBox1.Items.Add(IntToStr(r));
New[r] := 0;
fuck:=0;
end;
|
Извиняюсь за такой прокол, не думает уже головушка.
И я до сих пор не понял как строка:
помогает
Цитата:
|
Сообщение от Kaktuz
вычесть из random "0" который не нужен и не будет использоваться, таким образом оставив только 1-15.
|
Как вариант можно вызывать random на 15 и приплюсовывать 1.