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:
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)