Тема: Randomize
Показать сообщение отдельно
  #3  
Старый 28.11.2011, 22:44
hackteam hackteam вне форума
Прохожий
  
Регистрация: 13.11.2011
Сообщения: 9
Репутация: 10
По умолчанию
Цитата:
Сообщение от angvelem
Можно так:
Код:
  I := Random(5);
  repeat
    J := Random(5);
  until I <> J;
Только что попробовал, не работает
Ответить с цитированием