Тема: Перемешать список
Показать сообщение отдельно
  #2  
Старый 30.11.2011, 00:15
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Сразу что бросилось в глаза:
Код:
  New : array [1..15] of Integer;
...
r := Random(15);
if New[r] = 0 then
...
откровенная лажа, дальше и смотреть не стал.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием