Скачать: CL | DM;

процедура Randomize   Найти похожие ветки 

← →
Tar   (2007-03-06 11:56) [0]

Мне нужно организовать такую вещь: на форме есть 18 панелей. При запуске
нужно чтобы 8 из этих форм случайным образом скрылись, т.е. свойство visible стало равным значению false. В итоге на форме остаётся 10 форм и прикаждом  запуске они они разные.

---

← →
Megabyte ©   (2007-03-06 11:59) [1]

И в чем проблема?

---

← →
ЮЮ ©   (2007-03-06 12:05) [2]

После процедуры  Randomize можешь использовать функцию Random :)

---

← →
Плохиш ©   (2007-03-06 12:07) [3]

Надо знать ещё одну волшебную функцию random :-)

---

← →
Tar   (2007-03-06 12:27) [4]

Можете примерно написать код, я знаю про ф-ю random, но у меня что то не выходит чтобы формы выбирались случайным образом, и вариации часто чередуются

---

← →
Ega23 ©   (2007-03-06 12:30) [5]

> Можете примерно написать код, я знаю про ф-ю random, но
> у меня что то не выходит чтобы формы выбирались случайным
> образом, и вариации часто чередуются


примерно так:
Randomize;

While(i<8) do
begin
 j := Random(18);
 if not Panels[j].Visible then Continue;
 Panels[j].Visible := False;
 inc(i);
end;

---

← →
Tar   (2007-03-06 12:34) [6]

А panels[j], это массив из панелей, если да, то как его организовать, не знал что из объектов можно организовать массив :(

---

← →
Ega23 ©   (2007-03-06 12:41) [7]

> А panels[j], это массив из панелей


Массив, список, цикл по существующим - это уже как тебе угодно.
Я бы список организовал, наверное.


> о как его организовать, не знал что из объектов можно организовать
> массив :(


Книжку в зубы - и вперёд.

---

← →
Tar   (2007-03-06 12:42) [8]

Подскажите адрес где скачать книгу

---

← →
Ega23 ©   (2007-03-06 12:46) [9]

> Подскажите адрес где скачать книгу


http://www.ozon.ru/context/detail/id/2633170/

---

← →
Desdechado ©   (2007-03-06 12:47) [10]

Вариации часто чередуются потому, что Randomize нужно вызывать всего один раз в программе, а не на каждый чих.

---

← →
Megabyte ©   (2007-03-06 12:50) [11]

Можно проще: Пронумеровываешь свойство Tag у панелей и потом показываешь те панели, тег которых совпал с рандомом!

---

← →
Tar   (2007-03-06 12:59) [12]

О вот это подойдёт, молодчага Megabyte

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c