Welche CheckBox-Komponente?!?

[d3g]

Zitat von sakura:

Ausnahme: UNIX Shell Scripting: False ist ungleich Null (0) und True ist als Null (0) definiert.

Das liegt wahrscheinlich daran, dass ein Programm mit dem Exit-Code 0 erfolgreich war und mit einem Exitcode > 0 nicht erfolgreich...

[edit]Genauer gesagt, true und false sind Executables (liegen normalerweise in /bin/), die einen Exitcode von 0 bzw. 1 zurückgeben.[/edit]

MfG,
d3g

[sakura]

Sorry: True ist gleich 1

Der Rest bleibt aber weiter wie beschrieben. Hier mal ein Beispiel:

Delphi-Quellcode:

  // der Wert der Konstante True
  ShowMessage('TRUE: ' + IntToStr(Integer(True)));
  // der Wert der Konstante True
  ShowMessage('FALSE: ' + IntToStr(Integer(False)));
  // ein Vergleich zweier gleicher Konstanten
  ShowMessage('2=2: ' + IntToStr(Integer(Boolean(2 = 2))));
  // ein Vergleich zweier verschiedener Konstanten
  ShowMessage('1=2: ' + IntToStr(Integer(Boolean(1 = 2))));
  // testen einer Konstante ungleich 0
  if Boolean(5) then ShowMessage('Boolean(5) GILT ALS True') else ShowMessage('Boolean(5) GILT ALS False');
  // testen einer Konstante gleich 0
  if Boolean(0) then ShowMessage('Boolean(0) GILT ALS True') else ShowMessage('Boolean(0) GILT ALS False');
  // testen ob eine Konstante (5), welche True is, auch gleich True ist
  if Boolean(5) = True then ShowMessage('Boolean(5) = True IST WAHR') else ShowMessage('Boolean(5) = True IST NICHT WAHR');
  // testen ob eine Konstante (5), welche True is, gleich False ist
  if Boolean(5) = False then ShowMessage('Boolean(5) = False IST WAHR') else ShowMessage('Boolean(5) = False IST NICHT WAHR');
  // testen ob eine Konstante (0), welche False is, gleich True ist
  if Boolean(0) = True then ShowMessage('Boolean(0) = True IST WAHR') else ShowMessage('Boolean(0) = True IST NICHT WAHR');
  // testen ob eine Konstante (0), welche False is, auch gleich False ist
  if Boolean(0) = False then ShowMessage('Boolean(0) = False IST WAHR') else ShowMessage('Boolean(0) = False IST NICHT WAHR');

Das sollte alles erklären.

[[Flox]Cauchy]

"True" war übrigens auch schon in Pascal gleich "1". Dies zeigt das folgende kleine Programm:

Code:

uses Crt;
var
  x: Boolean;
  y: Byte absolute x;
begin
  ClrScr;
  x := False;
  WriteLn('False = ', y);
  x := True;
  WriteLn(' True = ', y);
  WriteLn;
  for y := 0 to 255 do
    Write(x:5);
  ReadLn;
end.

In den ersten beiden Zeilen wird "False = 0" und "True = 1" ausgegeben. Danach folgen dann ein "False" und 255 "True".

[Brüggendiek]

Hallo!

Meine Delphi-Hilfe sagt:
Boolean: False = 0, True = 1
ByteBool, WordBool, Longbool: False = 0, True <> 0

Boolean ist Pascal, 1 Byte. Der Rest (1/2/4 Byte) ist aus Kompatibilität zu anderen Sprachen bzw. der Windows-API vorhanden. Die liefert bei einer bool-Prozedur 0 oder <> 0!

Allerdings programmieren die auch mit der Beißzange:

Delphi-Quellcode:

var OK : Boolean;
...
if x <> 0 then OK := True;
if OK then ...

1. ist OK nicht initialisiert und
2. geht das ganz einfach:
OK := x <> 0; Was soll übrigens

Zitat von sakura:

Delphi-Quellcode:

procedure TAboutBox.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    ShowMessage('Ein');
  end
  else if not CheckBox1.Checked then
  begin
    ShowMessage('Aus');
  end;
end;

bedeuten?

das if nach dem else ist doch überflüssig! Es reicht doch

Delphi-Quellcode:

procedure TAboutBox.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    ShowMessage('Ein') else 
    ShowMessage('Aus');

end;

Gruß

Dietmar Brüggendiek

[sakura]

Ich gebe zu, das Beispiel war nicht gut, es sollte jedoch folgenden Konstrukten negieren.

Delphi-Quellcode:

procedure TAboutBox.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = True then
  begin
    ShowMessage('Ein');
  end
  else if CheckBox1.Checked = False then
  begin
    ShowMessage('Aus');
  end;
end;

Ich selbst programmiere sonst auch in Deiner Manier, das Beispiel ging wohl etwas daneben

[nailor]

Also: nie Booleans miteinander vergleichen, sonder nur:

if "boolean" then ... Aber was ist mit der Menge begin und ends? Machen die auch was schlimmes?

[Brüggendiek]

Hallo!

Zitat von Nailor:

Aber was ist mit der Menge begin und ends? Machen die auch was schlimmes?

Natürlich nicht, ist nur mehr Schreibaufwand. Meine Kritik betraf ja das doppelte IF!

Delphi-Quellcode:

if a then
  .. else
if not a then
  ..

Wenn a eine Variable ist, die nicht von asynchronen Prozessen (OnKeyPressed, OnTimer etc.) verändert wird, bleibt a dasselbe.
Ändert ein asynchroner Prozess die Variable a, wird u.U. beides NICHT durchlaufen!

Ist a eine Funktion, wird sie zweimal ausgeführt! Wenn die fragt, ob man das Programm wirklich beenden will, kommt die Frage bei "Nein" 2 mal!

Was den Schreibaufwand betrifft: Informatiker sind so faul, daß sie lieber 2 Tage an einem Programm scheiben, als 2 Minuten zu arbeiten!

Gruß

Dietmar Brüggendiek

[Daniel B]

Zitat von Nailor:

Aber was ist mit der Menge begin und ends? Machen die auch was schlimmes?

Das ist das gleiche Thema wie mit dem Semikolon;
Es ist übersichtlicher/schöner;
Sobald Du eine zweite Zeile dazu schreibst, fällt man genauso aus die "Nase", wie mit dem fehlenden Semikolon;

Auch hier meine Meinung, immer hinschrieben auch wenn nud ein Exit; dazwischen steht;

Grüsse, Daniel

[Sebastian Nintemann]

Problem kann hier besonders auch sein, dass man nicht drauf hingewiesen wird als

Code:

[Error] Unit1.pas(28): Missing operator or semicolon

Hat man zb einen Befehl nach einem if, und fügt einen dazu ohne mit begin end; nachzurüsten kann das schon nervraubende Folgen haben.

Gruß, Sebastian