Welche CheckBox-Komponente?!?

[d3g]

Zitat:

Zitat von sakura

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

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 :oops:

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:

Delphi-Quellcode:

OK := x <> 0;

Was soll übrigens

Zitat:

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 :D

[nailor]

Also: nie Booleans miteinander vergleichen, sonder nur:

Delphi-Quellcode:

if "boolean" then ...

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

[Brüggendiek]

Hallo!

Zitat:

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! :mrgreen:

Gruß

Dietmar Brüggendiek

[Daniel B]

Zitat:

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 :hi:

[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