[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;