[elfer]

Возможно ли с помощи этого оператора получить любое число кроме тех которые указанные в мемо1 например. К примеру диапазон от 1 до 20 и нужно любое число кроме 3, 5, 10 (они указаны в мемо поле). Заранее благодарен.

[Yurk@]

Например, при генерации числа проверить - есть ли это число в Мемо иль нет ... если есть - пропустить, а если нет - обрабатывать дальше

[elfer]

А программно как это выглядит?

[lmikle]

Программно где-то так:

Код:

1 2 3 4 5

var   R : Integer; begin   R := Random(N) + 1; random 1..N   While AlredyExist(R) Do R := Random(N)+1;

Где функия AlredyExist - проверяет допустимость сгенерированного числа. Писать надо самому.

[elfer]

А что за переменная n, и где он связан с мемо?

[TOJluK]

Про N:
С мэмо оно никак не связано.
Твое Случайное Число будет в диапазоне от 0 до N
Почитай хэлп про RANDOM...
С мэмо тебе надо связать еще не написанную тобой процедуру AlredyExist(R), в которой тебе надо сравнивать число R c числами из MEMO

[elfer]

Теперь понятнее. А теперь подскажите как написать и связать эту процедуру с мемо

[M.A.D.M.A.N.]

Еще можно использовать RandomRange из модуля Math.

[lmikle]

А вот это думай сам.
По сути, вещь довольно простая. Тебе нужен цикл по линиям мемо (Memo1.Lines), преобразование строки в число (StrToInt) и сранение с переданным числом (if).

[Casper-Hacker]

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

Возможно ли с помощи этого оператора получить любое число кроме тех которые указанные в мемо1 например. К примеру диапазон от 1 до 20 и нужно любое число кроме 3, 5, 10 (они указаны в мемо поле). Заранее благодарен.

Код:

1 2 3 4 5 6 7 8

var x:integer; begin randomize; x:=random(20); if (x<>3) and (x<>5) and (x<>10) then ... else x:=random(20);

Цифры воспринимаешь из мемо отрезкой pos(',',Переменная), и еще применяй для проверки цикл while...

[Karsh]

2 Casper-Hacker: тут необходим цикл или goto, например так:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var   x: Integer; begin   Randomize;   repeat     x:= Random(20);   until ((x<>3) and (x<>5) and (x<>10));   ShowMessage(IntToStr(x)); end;