Boolean-Werte addieren?

[WInfo]

Moin, Moin,

z. B. mit der Klasse im beiliegenden Testprogramm.

Delphi-Quellcode:

PROGRAM Project1;
{$APPTYPE CONSOLE}

USES
  SysUtils,
  Windows;

TYPE
  TAddBool = CLASS
  strict private
    fAddArray: ARRAY [0..1] OF integer;
  public
    PROCEDURE Clear;
    PROCEDURE add(abool: boolean);
    PROCEDURE print;
  END;

{$region 'TAddBool'}
  PROCEDURE TAddBool.add(abool: boolean);
  BEGIN
    Inc(fAddArray[integer(not (aBool = False))]);
  END;
  PROCEDURE TAddBool.Clear;
  BEGIN
    ZeroMemory(@fAddArray, sizeof(fAddArray));
  END;
  PROCEDURE TAddBool.print;
  BEGIN
    writeln('True: ', fAddArray[1]);
    writeln('False: ', fAddArray[0]);
  END;
{$endregion}

VAR
  AddBool: tAddBool;
BEGIN
  AddBool := tAddbool.Create;
  TRY
    addbool.add(True);
    addbool.add(False);
    addbool.add(True);
    addbool.print;
    readln;
  FINALLY
    addbool.Free;
  END;
END.