Durch Zufall zweite Form öffnen

[dominikkv]

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
var z1,z2,f1,f2,f3,f4,f5,f6:integer;

begin
if (checkbox1.checked=true) //warum (checkbox1.checked=true)? es reicht  checkbox1.checked
and (checkbox2.checked=false)  // hier auch einfach  not checkbox1.checked
and (checkbox3.checked=false)
and (checkbox4.checked=false)
and (checkbox6.checked=false)
and (checkbox8.checked=false)
and (checkbox9.checked=false)
and (checkbox5.checked=true)
and (checkbox7.checked=true)
 then randomize;                  // was bringt das? einfach randomize in OnCreate, das reicht
for z1 := 1 to 3 do
f1:=(random(4));     // warum 3 mal immer neue zufallszahlen generieren?
edit1.text:=IntToStr(f1);  

if edit1.text='0' then form2.show;
if edit1.text='1' then form2.show;
if edit1.text='2' then form2.show;



(checkbox1.checked=true) // if ?!?
and (checkbox2.checked=false)
and (checkbox3.checked=false)
and (checkbox4.checked=false)
and (checkbox6.checked=false)
and (checkbox8.checked=false)
and (checkbox9.checked=false)
and (checkbox5.checked=true)
and (checkbox7.checked=true)
then form1.Hide;   // semikolon ?!?
else showmessage('FEHLER SIND NOCH VORHANDEN');

wie xZise schon gesagt hat:

Delphi-Quellcode:

var N: Byte;
//  
N := Random(4);
case N of
  0:Form2.show;
  1:Form3.show;
  2:Form4.show;
  3:Form5.show;
end;