Fehlermeldung beim Schreiben in der Registry

[venice2]

Zitat von freimatz:

Zitat von venice2:

...
Eins sollte man jedoch ändern wenn man vom Code her schon so penibel ist.
... If IsWow64 Then
Reg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY)
Else
Reg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_32KEY);[/DELPHI]

Und wenn schon, denn schon
DRY - Don't repeat yourself. Also:
beim if nur KEY_WOW64_64KEY oder KEY_WOW64_32KEY in lokaler Variable speicher und danach nur 1x "TRegistry.Create(KEY_ALL_ACCESS "

Ich wollte nicht seinen Code umschreiben und habe ihn so übernommen.
Es ging nur um das Fail bzgl. auf True hin zu prüfen.
Der Rest hat mich nicht Interessiert da diese Create Methode im Nachhinein in seinem Video geändert wurde.

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