wir verwenden folgenden Code

markieren

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 ...

{$B-}

Mavarik

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

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

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.

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...

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?

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

Zitat von Jumpy:

Was ist denn eigentlich ValueA?

Ein String kann es nicht sein, da sonst der Compiler gemecktert hätte ... vonwegen der Kompatibilität zwischen Char und Integer.
Und die neuen Strings, in den mobilen Plattformen, sind nun standardmäßig auch 0-basierend.

Und was ist mit dem allseits beliebten
if (length(a)>0) and (copy(a,1,1)='H') then bei einem Leerstring würde die vollständige Auswertung nicht so doll sein
Bei einer ganzen Latte von ifs die sich mit einem String beschäftigen wäre eine Aufteilung natürlich sinnvoller (da gibts dann keine vollständige Auswertung mehr):

markieren

Delphi-Quellcode:

if length(a)>0 then begin
  if copy(a,1,1)='G' then..
  if a[length(a)]='\' then ...
end;

Gruß
K-H