Master-X
Форум | Новости | Статьи
Главная » Форум » Программинг, Скрипты, Софт, Сервисы » 
Тема: В Delphi7 как сделать аналог rand(знач.1, знач.2, знач.3)?
цитата
27/08/12 в 21:01
 Yabuti
Всем привет!
Пожалуйста подскажите, как в Дельфи задать рандомный выбор из задаваемых значений, аналогично php'ному rand(знач.1, знач.2, знач.3)?

Заранее большое спасибо! smail54.gif
цитата
27/08/12 в 22:14
 Vyacheslav
Не встречал. Можно так, если случай для int:
Код:
function rand( x1, x2, x3 : integer ): integer;
begin
  Result := 0;
  Randomize;
  case Random(3)+1 of
    1: Result := x1;
    2: Result := x2;
    3: Result := x3;
  end;
end;
цитата
28/08/12 в 04:44
 Yabuti
Vyacheslav: спасибо! smail54.gif


Эта страница в полной версии