Entwickler-Ecke

Sonstiges (Delphi) - Nochmal nen Frage zur Checkbox


Memphis D - Di 22.01.08 18:33
Titel: Nochmal nen Frage zur Checkbox
Hi
also ich hab da nochmal ne Frage die mit der Checkbox zu tun hat und zwar:
Ich hab drei mal ne Checkbox und will, falls keine markiert wurde ne Showmessage ausgeben. Der Quelltext sieht so aus:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.btClick(Sender: TObject);
begin
IF NOT (CheckBox1.Checked) AND (CheckBox2.Checked) AND (CheckBox3.Checked) THEN
Showmessage('....')
ELSE 
....
end;


Leider kommt beim Anklicken des Buttons nichts, auch keine Fehlermeldung vom Delphi.
Woran liegt das denn?

MfG

Moderiert von user profile iconGausi: Delphi-Tags hinzugefügt


Mitmischer 1703 - Di 22.01.08 18:36

Dreimal CheckBox1 ? :P

:zwinker:


Delphi-Quelltext
1:
If not (CheckBox1.Checked) and (CheckBox2.Checked) then //...                    


EDIT:

Auch falsch :oops:, so:

Delphi-Quelltext
1:
2:
IF NOT (CheckBox1.Checked) AND NOT (CheckBox2.Checked) AND NOT(CheckBox3.Checked) THEN
Showmessage('....')


Gausi - Di 22.01.08 18:38

Und vor den anderen sollte jeweils auch ein NOT kommen, oder so:

Delphi-Quelltext
1:
if Not (CheckBox1.Checked OR CheckBox2.Checked OR CheckBox3.Checked) then ...                    


Memphis D - Di 22.01.08 18:43

Oh das mit der CheckBox1 war nen fehler sollte eigentlich Checkbox1, Checkbox2 .... heißen.
So ok funktioniert, das NOT hinter dem AND hat gefehlt.
Danke.