[-Kaizer-]

Всем привет!
Пожалуйста подскажите, как в Дельфи задать рандомный выбор из задаваемых значений, аналогично php'ному rand(знач.1, знач.2, знач.3)?

Нужно что-то вроде:
a := rand('apple', 'parrot', 'tomato');

Заранее большое спасибо!

[angvelem]

Чем Random(3) не устраивает?

[poli-smen]

Сообщение от -Kaizer-

Всем привет!
Пожалуйста подскажите, как в Дельфи задать рандомный выбор из задаваемых значений, аналогично php'ному rand(знач.1, знач.2, знач.3)?

Нужно что-то вроде:
a := rand('apple', 'parrot', 'tomato');

Заранее большое спасибо!

Код:

function rand(s1, s2, s3: String): String;
begin
  case Random(3) of
    0: Result:=s1;
    1: Result:=s2;
    2: Result:=s3;
  end;
end;

[lmikle]

Вы че, издеваетесь все???

Код:

function Rand(A : Array Of String) : String;
begin
  Result := A[Random(Length(A))];
end;

usage:

Код:

ShowMessage(Rand(['apple', 'parrot', 'tomato']));

[angvelem]

Сообщение от lmikle

Вы че, издеваетесь все???

Не люблю давать готового решения, человек должен и сам немного думать.

[-Kaizer-]

lmikle, большое спасибо!

[lmikle]

Сообщение от -Kaizer-

lmikle, большое спасибо!

Я там поправил чутка - Length вместо High...