Цитата:
|
Сообщение от elfer
Возможно ли с помощи этого оператора получить любое число кроме тех которые указанные в мемо1 например. К примеру диапазон от 1 до 20 и нужно любое число кроме 3, 5, 10 (они указаны в мемо поле). Заранее благодарен.
|
Код:
var
x:integer;
begin
randomize;
x:=random(20);
if (x<>3) and (x<>5) and (x<>10) then
...
else x:=random(20);
Цифры воспринимаешь из мемо отрезкой pos(',',Переменная), и еще применяй для проверки цикл while...