and-Funktion

[Matze]

Zitat:

Zitat von MrMyagi

Ok danke,
das ist mir ja eigendlich auch bewusst aber in dem folgenden
Beispiel heißt es entweder...oder

Delphi-Quellcode:

if (text <> 'Spieleinladung') and (text <> 'Einladungannehmen')
    and (text <> 'a') and (text <> 'c') and (text <> 'c') then
begin
Memo1.Lines.Add(Text);
end;

Guck doch mal, was ich dazugeschrieben hatte:

Zitat:

Zitat von Matze

Delphi-Quellcode:

if (text <> 'Spieleinladung') and (text <> 'Einladungannehmen') then
begin
  // Anweisungen
end;

So werden die Anweisungen nur ausgeführt, wenn "text" weder "Spieleinladung" noch "Einladungannehmen" ist.

Das heißt doch genau: Wenn ungleich das eine und ungleich das andere, dann mache etwas. Du musst nur genau lesen: "Weder noch" <> "Entweder oder". ;)

[3_of_8]

@DeddyH: Mit Bitmasken hat das gar nichts zu tun. Bitmasken verwenden bitweise Operatoren, während das and hier ein logischer Operator ist.

[DeddyH]

Immerhin sind dort and, or und xor beschrieben.

[r2c2]

Zitat:

Zitat von DeddyH

Immerhin sind dort and, or und xor beschrieben.

Aber dort sind es andere and und or. Auch, wenn sie in Delphi genauso heißen, machen sie etwas anderes.
Ein Negativ-Beispiel:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  a, b: Boolean;
begin
  a := True;
  b := GaaanzFieseAPIFunktion; // = true(-1)
  if (Integer(a) or Integer(b)) = Integer(True) then
  begin
    ShowMessage('mich sieht man nicht');
  end;
  
  a := True;
  b := GaaanzFieseAPIFunktion; // = true(-1)
  if a or b then
  begin
    ShowMessage('Hallo');
  end;
end;

In C++ bräuchte man nicht ganz so viele Verrenkungen für so n Blödsinn zu machen...

Ein passender Link:
http://r2c2.weingut-rehn.de/content5..._Variablen.htm

mfg

Christian

[3_of_8]

Das muss noch nicht mal ne ganz fiese API-Funktion sein, es reicht schon, statt dem zweiten Boolean einen LongBool zu verwenden.

[r2c2]

Zitat:

Zitat von 3_of_8

Das muss noch nicht mal ne ganz fiese API-Funktion sein, es reicht schon, statt dem zweiten Boolean einen LongBool zu verwenden.

Nö, ich mein ich hätts damels ausprobiert. Reicht nicht. Hab momentan leider kein Delphi Griffbereit zum Ausprobieren. Lazarus lässt sich jedenfalls nicht so leicht linken(noch nicht mal von der gaaanz fiesen Funktion[1])...

[1] gemeint ist das Originalbeispiel im Tutorial; nicht das mit den Bitoperatoren; das funktioniert auch mit Lazarus...

mfg

Christian

[3_of_8]

Ich habs grad eben ausprobiert. ;)

LongBool genommen, True zugewiesen, auf nen Integer gecastet, Ergebnis: -1

[r2c2]

Zitat:

Zitat von 3_of_8

Ich habs grad eben ausprobiert. ;)

LongBool genommen, True zugewiesen, auf nen Integer gecastet, Ergebnis: -1

Und wie siehts damit aus:

Delphi-Quellcode:

var;
  b: LongBool;
begin
  b := True;
  if b = True then
  begin
    ShowMessage('Hallo');
  end;
end;

Wenn das auch geht(d.h. nix angezeigt wird), muss ich vllt. das Tutorial noch abaendern, aber ich meine damals haett ich das ausprobiert und gemerkt, dass da die CompilerMagic zuschlaegt...

Aber ich glaub wir werden OT:
Tatsache ist, dass man sowas, wie oben *nicht* machen sollte. Also niemals auf = True pruefen. Warum steht im verlinkten Tutorial.

mfg

Christian

[Matze]

Zitat:

Zitat von r2c2

Aber ich glaub wir werden OT:
Tatsache ist, dass man sowas, wie oben *nicht* machen sollte. Also niemals auf = True pruefen. Warum steht im verlinkten Tutorial.

Oder, ich finde es übersichtlicher und besser erklärt ;) , in der DP.