процедура 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]

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

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

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

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

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

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

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

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