Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein

[Sir Rufo]

Eventuell so?

Delphi-Quellcode:

function IsOneOfThree( const B1, B2, B3: Boolean ): Boolean;
begin
  Result := ( B1 xor B2 xor B3 ) and not ( B1 and B2 and B3 );
end;

function IsOneOfFour( const B1, B2, B3, B4: Boolean ): Boolean;
begin
  Result := IsOneOfThree( IsOneOfThree( B1, B2, B3 ), B4, False );
end;