Warum ist ein Boolean so groß?

[himitsu]

Man kann Booleans auch Incrementieren und Decrementieren.

Delphi-Quellcode:

Var B: Boolean/ByteBool/WideBool/LongBool;  // geht bei allen

Inc(B);
Dec(B);

Die Booleans sind ja so definiert:

Code:

True:   B <> 0
False:  B = 0

Und die Standard-Konstanten:

Code:

True  = 1
False = 0

Also:

Delphi-Quellcode:

Var B: Boolean/ByteBool;

B := False;  // 0 > False
Inc(B);      // 1 > True
Inc(B);      // 2 > True
Dec(B);      // 1 > True
Dec(B);      // 0 > False
Dec(B);      // 255 > True

Man kann es also z.B. zum Sperren von irgendwas verwenden, wenn z.B. dieses von mehreren Prozessen gesperrt werden soll und nur wieder freigegeben soll, wenn es auch wieder von allen Prozessen freigegeben wurde.

Delphi-Quellcode:

Var gesperrt: ByteBool/Boolean;

gesperrt := False;  // 0: initialasieren = freigegeben
Inc(gesperrt);      // 1: sperren   = gesperrt
Inc(gesperrt);      // 2: sperren   = gesperrt
Dec(gesperrt);      // 1: freigeben = gesperrt
Inc(gesperrt);      // 2: sperren   = gesperrt
Dec(gesperrt);      // 1: freigeben = gesperrt
Dec(gesperrt);      // 0: freigeben = freigegeben

wobei die Richtung in diesem Fall eigentlich sogar egal ist:

Delphi-Quellcode:

gesperrt := False;  // 0:   initialasieren = freigegeben
Dec(gesperrt);      // 255: sperren   = gesperrt
Dec(gesperrt);      // 254: sperren   = gesperrt
Inc(gesperrt);      // 255: freigeben = gesperrt
Dec(gesperrt);      // 254: sperren   = gesperrt
Inc(gesperrt);      // 255: freigeben = gesperrt
Inc(gesperrt);      // 0:   freigeben = freigegeben

Und abfragen kann man dieses ja dann ganz einfach so:
If gesperrt Then ...
[add]
PS:

in Delphi: Boolean = ByteBool
und in Windows/C++: BOOL = LongBool

die WinAPI-Funktionen verwenden alle das LongBool (32-Bit)


[add2]
Ach ja, geschwindigkeitsvorteil gibt es auch nicht immer.

z.B. dürfte

Delphi-Quellcode:

Var B: Boolean/ByteBool;
B := True;

schneller sein als

Delphi-Quellcode:

Var B: LongBool;
B := True;

(wenn ihr euch mal den Befehl in ASM anseht, dann werdet ihr merken, daß der 32-Bit-Befehl größer ist)