реализация random подробнее внутри...

[zyxel-md]

Здравствуйте прошу помочь кому не лень и кто может, у меня есть 2 формы, мне нужно чтобы одна из них открывалась а какая, уже не важно т.е надо использовать рандом, работаю в delphi помогите с реализацией условия....
вот мой набросок... проблема в том что он обрабатывает все значения т.е сначала выдает 1-значение а потом 2-ое в итоге форма номер2 постоянно появляется.


var zx:integer;
int:integer;

for zx:= 0 to 2 do
begin
int:=random(2);
ShowMessage('zx = '+IntToStr(zx));

if zx=1 then



form1.show; form2.hide;
if zx=2 then form2.Show;
form1.hide; end;

[Ezhik Kihze]

Рандомайз в начале сделали?

[zyxel-md]

вроде нет, это все что есть в коде и в var

[Mad_Cat]

Randomize;int:=random(2);

[zyxel-md]

К сожалению и так не срабатывает... он обрабатывает все также все значения по очереди.

[BDA]

Конечно, по очереди, так как код по сути:

for zx:= 0 to 2 do
  begin
    ShowMessage('zx = '+IntToStr(zx));
    if zx=1 then
      form1.show;
    form2.hide;
    if zx=2 then
      form2.Show;
    form1.hide;
end;

Напишите, например так:

randomize;
for zx:= 0 to 2 do
begin
  form1.hide;
  form2.hide;
  if random(2)=0 then
    form1.show
  else
    form2.show;
end;

[zyxel-md]

Все равно одно и тоже обработка идет всех значений а мне хотелось бы чтобы он выбирал одно значение в пределах 2 форм ну как в услови...

на паскале таже лажа... может есть другой способ ?

[BDA]

Тогда еще раз объясните, что Вы хотите получить.
Может не нужен цикл?

[zyxel-md]

Допустим есть 3 формы, form1,form2,form3;

Главная форма form1; по выполнению условия(не важно какого либо button.click либо еще что.то) в forme1 должно выйти окно либо form2 либо form3;

нужна подсказка с правильным использованием в этой ситуации random т.е что бы одно из 2-х окон выходили на form1; может есть метод без random? я с ним особо раньше не сталкивался и сам не такой уж и продвинутый поэтому уже обращаюсь( заранее спасибо, за любую попытку помочь)

[BDA]

Попробуйте так:

randomize;//прописать в событии create 1ой формы
...
//там, где нужно показывать формы, написать
if random(2)=0 then
begin
  form3.hide;
  form2.show;
end
else
begin
  form2.hide;
  form3.show;
end;