wann wird eine If Abfrage verlassen

[bernhard_LA]

wir verwenden folgenden Code

Delphi-Quellcode:

  If (length(ValueA)=0) or (length(ValueA)> 0 and  ValueA[0] < 1)  then 
     begin
        doA(...);
     end
     else
     begin
        doB(...)
     end;

Auf einem Arbeitsplatzsystem (Win7, DELPHI XE2) wird der gesamte Code fehlerfrei ausgeführt. Dh. Falls die Länge von ValueA = 0 dann verzichtet er auf eine Prüfung von (length(ValueA)> 0 and ValueA[0] < 1);

Auf einem zweiten System versucht sich aber immer auch noch an der Prüfung von (length(ValueA)> 0 and ValueA[0] < 1) und wirft eine AV wenn length(ValueA)=0.
Warum bricht Delphi die Abfrage nicht immer ab wenn die erste Bedingung erfüllt ist, die zweite bräuchte er ja nicht mehr zu prüfen ...

[Mavarik]

{$B-}

Mavarik

[Sherlock]

Das ist eine Compiler-Option. Die nennt sich vollständige boolsche Auswertung. Wenn das auf "False" steht, dann bricht die Auswertung ab, sobald das Ergebnis feststeht. Bei "verundeten" Ausdrücken, dann also beim ersten False - bei "veroderten" beim ersten True.

Sherlock

[mkinzler]

Das kann man Einstellen. Bei ein und dem selben Kompilat sollte es sich aber auf allen Rechnern identisch verhalten

http://docwiki.embarcadero.com/RADSt...r-Direktive%29

[himitsu]

Zitat:

If (length(ValueA) = 0) or (length(ValueA) > 0 and ValueA[0] < 1) then

Und dann fehlen hier auch nich ein paar Klammen, denn es müsste ja eigentlich so aussehn
If (length(ValueA) = 0) or ((length(ValueA) > 0) and (ValueA[0] < 1)) then

Und da das Length>0 zwangsläufig True sein muß, wenn Length=0 nicht angeschlagen hat, könnte man es auch weglassen.
If (length(ValueA) = 0) or (ValueA[0] < 1) then


Standardmäßig sollte diese Option besser deaktiviert bleiben und ansonsten nur lokal dort aktiv, für die einen IF-Auswertung, bzw. für die eine Unit, wo es unbedingt aktiv sein muß.
Drum bringt es hier natürlich auch erstmal nichts, wenn man drüber nachdenken würde, was man wie ändern muß, wenn diese Option aktiv wäre. (in mehrere IFs aufteilen)
Also wenn in den Projektoptionen aktiv, dann dort abschalten.

[Der schöne Günther]

Warum das in Delphi ein globaler (ziemlich auffälliger) Compilerschalter ist und nicht wie in so ziemlich allen Sprachen ein "&&" bzw "&" habe ich nie verstanden...

[mkinzler]

Zitat von Der schöne Günther:

Warum das in Delphi ein globaler (ziemlich auffälliger) Compilerschalter ist und nicht wie in so ziemlich allen Sprachen ein "&&" bzw "&" habe ich nie verstanden...

Du kannst ihn auch lokal setzen

[uligerhardt]

Zitat von Der schöne Günther:

Warum das in Delphi ein globaler (ziemlich auffälliger) Compilerschalter ist und nicht wie in so ziemlich allen Sprachen ein "&&" bzw "&" habe ich nie verstanden...

&/&& unterscheidet doch (zumindest in C und Konsorten) zwischen Bitarithmetik und boolescher Logik und hat nichts mit short circuit zu tun?

[Der schöne Günther]

Ja und dementsprechend kürzt ein "||" doch auch ab während es ein "|" ja gar nicht tun kann?

Code:

#pragma hdrstop
#pragma argsused

#include <tchar.h>
#include <stdio.h>

#include <iostream>

bool someFunc1() {
   return true;
}

bool someFunc2() {
    std::cout << "Jemand rief someFunc2() auf" << std::endl;
   return true;
}


int _tmain(int argc, _TCHAR* argv[])
{
   std::cout
      << "Mit || ist das Ergebnis "
      << (someFunc1() || someFunc2())
      << std::endl;

   std::cout << std::endl;

   std::cout
      << "Mit | ist das Ergebnis "
      << (someFunc1() | someFunc2())
      << std::endl;

   getchar();
   return 0;
}

Ergibt

Code:

Mit || ist das Ergebnis 1

Jemand rief someFunc2() auf
Mit | ist das Ergebnis 1

Falls ich mich jetzt vertue brauche ich echt Urlaub...

[Jumpy]

Was ist denn eigentlich ValueA?

Ein String? Dann kann doch das nicht klappen: ValueA[0] < 1

Oder ist das ein Array of Integer oder sowas?