Hogy lehet Lazarusban rövidebben az én 2 percig futómnál (erős gépen) gyorsabbat írni? Bővebb lent!

Lehet, hogy azért mert a debuggerem nem a leghibátlanabb(Mac OS X)

Amúgy köszi

Ezt a kódot próbáltam, de ha 2x kattintok rá és hibát kéne kiadnia, akkor továbbmegy(a végén a beallitas és a jatek 1-1 panel!

procedure TForm1.Button1Click(Sender: TObject);

begin

if checkbox1.checked then

jatekosszam:=jatekosszam+1;

if checkbox2.checked then

jatekosszam:=jatekosszam+1;

if checkbox3.checked then

jatekosszam:=jatekosszam+1;

if checkbox4.checked then

jatekosszam:=jatekosszam+1;

if checkbox5.checked then

jatekosszam:=jatekosszam+1;

if checkbox6.checked then

jatekosszam:=jatekosszam+1;

if jatekosszam=0

then

beallitas.caption:='Legalább két Játékos kell!'

else

if jatekosszam=1 then

beallitas.caption:='Legalább két Játékos kell!'

else

begin

jatek.visible:=true;

jatek.enabled:=true;

beallitas.Enabled:=false;

beallitas.Visible:=false;

end;

end;