![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Всем привет!
Пожалуйста подскажите, как в Дельфи задать рандомный выбор из задаваемых значений, аналогично php'ному rand(знач.1, знач.2, знач.3)? Нужно что-то вроде: a := rand('apple', 'parrot', 'tomato'); Заранее большое спасибо! ![]() |
#2
|
||||
|
||||
![]() Чем Random(3) не устраивает?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
||||
|
||||
![]() Цитата:
Код:
function rand(s1, s2, s3: String): String; begin case Random(3) of 0: Result:=s1; 1: Result:=s2; 2: Result:=s3; end; end; |
#4
|
|||
|
|||
![]() Вы че, издеваетесь все???
Код:
function Rand(A : Array Of String) : String; begin Result := A[Random(Length(A))]; end; usage: Код:
ShowMessage(Rand(['apple', 'parrot', 'tomato'])); Последний раз редактировалось lmikle, 28.08.2012 в 22:10. |
#5
|
||||
|
||||
![]() Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
||||
|
||||
![]() lmikle, большое спасибо!
|
#7
|
|||
|
|||
![]() Цитата:
Я там поправил чутка - Length вместо High... |