Fehlermeldung beim Schreiben in der Registry

[generic]

Ich hätte jetzt schwören können, dass der Compiler mit Optimierung

Code:

if a=true then

genau so behandelt wie

Code:

if a then

Aber es kommt was anderes raus:
c.PNG

Code:

if a<>false then

ist wie

Code:

if a then

[freimatz]

Oh, jetzt bin ich baff. Ist die Optimierung aus? Oder so schlecht?
Nachtrag: liegt wohl daran, dass True so definiert ist: type Boolean = (False, True); True hat dann den Ordinalwert 1 und ist eben nicht immer not False.

[Sinspin]

Zitat von generic:

Aber es kommt was anderes raus:
Anhang 54226

So schön einfach kann man sich Probleme einhandeln. Das sollte sich jeder von uns ausdrucken und unters Kopfkissen legen!

[himitsu]

if B then

entspricht "logisch" einem

if B <> False then
aber in Real ist Letzeres natürlich ein cmp al,$00; jz $********

In Worten:
"du bist irgendein Mensch"
gegen
"du bist genau dieser Mensch"

Delphi-Quellcode:

var B: Boolean;

B := Boolean(2);

if B then Beep;  // if Ord(B) <> 0 then
if not B then {Kein}Beep;  // if Ord(B) = 0 then
if B = True then {Kein}Beep;
if B = False then {Kein}Beep;
if B = Boolean(2) then Beep;

Boolean und ByteBool sind 1 Byte groß, nicht 1 Bit, also haben 1*False und 255*True, aber die Konstante "True" entspricht nur genau einem der vielen True's.
Und beim LongBool sind es sogar über 4 Milliarden "True".

Boolean: True = $01 aka +1
ByteBool: True = $FF aka -1

[venice2]

[freimatz]

Zitat von venice2:

Auch von mir ein für die Erklärung.
Wer jedoch so programmiert, dass das eine Rolle spielt:

[Rollo62]

@generic

CodeReviews finde ich eine tolle Sache, gerne mehr davon.
Ich hatte mir das Exercism.io angesehen, das läuft auch irrgendwie darauf hinaus sich verschiedenste Lösungen anzusehen.
https://en.delphipraxis.net/topic/53...#comment-46137

Ist aber leider beim Review etwas umständlich, und ausserdem für Anfänger gedacht.