Тема: нестыковка с рандомом без повторений
Показать сообщение отдельно
  #3  
Старый 15.07.2013, 02:25
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
  
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию
Строку
Код:
 upr:= ListBox1.Items[k];
тоже перенести вверх надо
Ответить с цитированием