Ramdomize

[)Игнат(]

Пожалуйста киньте сюда учебник, или поясните структуру Randomizе в делфи!!!всмысле чтоб генерилось число, например от 1 до 15 и каждому числу соответствовал какой-то вар-т работы проги, case 1;case2;case3;case15

[[Smarik]]

randomize;
a:=random(15)+1;
case a of
1:действие;
2:действие;
..
15:действие;
end;