Checkbox Problem

The6er · Hält's aus hier Beiträge: 9

Hallo, ich habe folgenden Code:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  Befehl := Location + ' -h ' + hash + ' -c' ;
  If Checkbox1.Checked= true then
   Befehl := Befehl + 'a';
  If Checkbox2.Checked= true then
   Befehl := Befehl + 'A' ;
  If Checkbox3.Checked= true then
   Befehl := Befehl + '0';
  If Checkbox4.Checked= true then
   Befehl := Befehl + '~' ;

  If Checkbox1.Checked= false and Checkbox2.Checked= false and
     Checkbox3.Checked= false and Checkbox4.Checked= false
     then
     ShowMessage('Bitte Etwas Ankreuzen');

aber egal ob die Checkboxen Aktiviert sind oder nicht, aber macht NIE die oberne Anweisungen und zeigt IMMER die untere Nachricht an...

Weiß jemand was ich falsch gemacht habe?

Moderiert von Narses: Delphi-Tags hinzugefügt

whitef · Beiträge: 202 Erhaltene Danke: 1 Windows X Delphi XE X

hi, versuch das mal

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

If Checkbox1.Checked = False then
   if Checkbox2.Checked = False then
      if Checkbox3.Checked= False then
         if Checkbox4.Checked = False then
            ShowMessage('Bitte Etwas Ankreuzen');

jaenicke · Verfasst: Mi 29.04.09 22:10

The6er hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  If Checkbox4.Checked= true then
   Befehl := Befehl + '~' ;

  If Checkbox1.Checked= false and Checkbox2.Checked= false and
     Checkbox3.Checked= false and Checkbox4.Checked= false
     then

Der Vergleich mit Booleanwerten (z.B. if x = true then) ist nicht nur unschön und unlogisch, sondern falsch.
Hier habe ich mal ein kleines Beispiel gebastelt, wann es schief geht:
www.delphi-forum.de/....php?p=548760#548760
Mehr dazu steht hier unter Anfängerfehler:
www.delphi-treff.de/...olean-werten/page/4/

Richtig:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  if Checkbox4.Checked then
    Befehl := Befehl + '~';

  if not (Checkbox1.Checked or Checkbox2.Checked or
    Checkbox3.Checked or Checkbox4.Checked) then
    ...

whitef hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:

If Checkbox1.Checked = False then
   if Checkbox2.Checked = False then

Erstens ist der Vergleich mit False falsch, zweitens wird das so extrem unübersichtlich...

jakobwenzel · Verfasst: Mi 29.04.09 22:13

Kleine Ergänzung: Nicht funktioniert hat das am Anfang jedoch nur nicht weil Klammern fehlen:

markieren

Delphi-Quelltext

1:
2:
3:

If (Checkbox1.Checked= false) and (Checkbox2.Checked= false) and
(Checkbox3.Checked= false) and( Checkbox4.Checked= false)
then

Aber es bleibt trotzdem schlechter Stil :wink:

jaenicke hat folgendes geschrieben :

Erstens ist der Vergleich mit False falsch,[...]

Wann liefert der denn falsche Ergebnisse?

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

The6er · Hält's aus hier Beiträge: 9

Danke, ihr habt mir sehr geholfe, nächstesmal schau ich in die Anfänger Sektion....

jaenicke · Verfasst: Mi 29.04.09 22:22

jakobwenzel hat folgendes geschrieben :

jaenicke hat folgendes geschrieben :

Erstens ist der Vergleich mit False falsch,[...]

Wann liefert der denn falsche Ergebnisse?

Ok, ganz genau gesagt ist nur der mit True wirklich falsch, aber diese Unterscheidung führt nur wieder zu Fehlern... :roll:

Und wenn man das wirklich verstanden hat und nicht mehr mit True vergleicht, dann kommt man gar nicht erst auf die Idee mit False zu vergleichen...
Womit dann nebenbei auch die Klammerung eben wegfällt.

whitef · Beiträge: 202 Erhaltene Danke: 1 Windows X Delphi XE X

whitef hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:

If Checkbox1.Checked = False then
   if Checkbox2.Checked = False then

kommt davon wenn man den ganzen tag mit VBA arbeitet und abends mal ne stunde im delphi forum was posten möchte...

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Also ich hätte das eher so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Befehl := Location + ' -h ' + hash + ' -c' ;
BefehlKopie:=Befehl;
  If Checkbox1.Checked= true then
    Befehl := Befehl + 'a';
  If Checkbox2.Checked= true then
    Befehl := Befehl + 'A' ;
  If Checkbox3.Checked= true then
    Befehl := Befehl + '0';
  If Checkbox4.Checked= true then
    Befehl := Befehl + '~' ;

If BefehlKopie=Befehl  then
  ShowMessage('Bitte Etwas Ankreuzen');

Es bleibt aber ja die Frage, ob Du den Checkboxen auch die Möglichkeit eines "grauen Kreuzes" gibst.
Die Möglichkeit ist ja, wenn man etwas auf jeden Fall so lassen möchte, wie es schon vorher war,
aber sich im Moment keien Gedanken darüber machen will/kann, ob das denn nun vorher angehakt war oder nicht.

jaenicke · Verfasst: So 03.05.09 16:34

ffgorcky hat folgendes geschrieben :

Also ich hätte das eher so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:

Befehl := Location + ' -h ' + hash + ' -c' ;
BefehlKopie:=Befehl;
  If Checkbox1.Checked= true then
    Befehl := Befehl + 'a';

jaenicke hat folgendes geschrieben :

Der Vergleich mit Booleanwerten (z.B. if x = true then) ist nicht nur unschön und unlogisch, sondern falsch.
Hier habe ich mal ein kleines Beispiel gebastelt, wann es schief geht:
www.delphi-forum.de/....php?p=548760#548760
Mehr dazu steht hier unter Anfängerfehler:
www.delphi-treff.de/...olean-werten/page/4/

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Heißt das also, man sollte lieber alles mit

markieren

Delphi-Quelltext

1:
2:

If not Checkbox1.Checked= false then
        Befehl := Befehl + 'a';

lösen?
Naja - ist mir auch recht...

Gausi · Verfasst: So 03.05.09 16:46

Nein. Einfach mit

markieren

Delphi-Quelltext

1:
2:

If CheckBox1.Checked then
  ShowMessage('Checkbox 1 ist gecheckt');

_________________
We are, we were and will not be.

jaenicke · Verfasst: So 03.05.09 16:58

Schau mal unabhängig vom Programmieren. Welchen dieser beiden Sätze wirst du dann sagen:

Wenn "das Wetter ist schön" wahr ist, dann werde ich heute Fußball spielen gehen.
Wenn das Wetter schön ist, dann werde ich heute Fußball spielen gehen.

Na? Wirst du wirklich den ersten Satz nehmen? ;-)

Eben, genau das ist aber das, was du in Delphi geschrieben hast...

Regan · Verfasst: So 03.05.09 17:00

Und danach wollte er folgendes schreiben:

Zitat:

Wenn "das Wetter ist schlecht" falsch ist, dann werde ich heut Fußball spielen gehen.

jaenicke · Verfasst: So 03.05.09 17:03

Nein, eher:
Wenn nicht "das Wetter ist gut" falsch ist, dann... :mrgreen:

Man muss sich das einfach einmal richtig überlegen, dann kommt man erst gar nicht mehr auf solche Verrenkungen. ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme