Delphi maly problem??

11.04.2005

19:43

[1]

Michlos [ ! - C - O - O - L - ! ]

Delphi maly problem??

procedure TForm1.Button1Click(Sender: TObject);
repeat
randomize;
e:=e+1;
a:=random(c)+1;
b:=random(c)+1;
label1.Caption:=(inttostr(a));
label2.Caption:=(inttostr(b));


until e=d;

........................................
mam takie cos(wyzej jest jeszcze troche wiecej ale nie wazne) i dzieje sie to po nacisnieciu przycisku start.
..........................................

procedure TForm1.Button2Click(Sender: TObject);
begin
if (b mod a)=0 then
begin
panel1.visible:=true;
panel2.visible:=false;
end
else
begin
panel1.visible:=false;
panel2.visible:=true;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if (b mod a)<>0 then
begin
panel1.Visible:=true;
panel2.Visible:=false;
end
else
begin
panel1.Visible:=false;
panel2.Visible:=true;
end;
end;

.......................................
mam na formie tez dwa przyciski "tak i "nie" i tam juz sa warunki i jak zrobic zeby te przyciski dzialaly przed until w procedurze przycisku start (chodzi o to zeby te warunki z przyciskow tez sie powtarzaly)
......................................
jka si eodwolac do tych przyciskow albo jak zapisac "jesli przecik tak zostanie nacisniety wtedy"??

grish_em_all [ Hairless Cobra ]

chyba musisz zadeklarowac zmienna logiczna i ustalic jej wartosc na "true" po kliknieciu przycisku i wtedy piszesz warunek "if zm=true then .... else ... " (gdzie zm to twoja zmienna)