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

Thema durchsuchen

Ansicht

Themen-Optionen

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

Ein Thema von hoika · begonnen am 22. Feb 2016 · letzter Beitrag vom 24. Feb 2016

Vorheriger Beitrag

Nächster Beitrag

Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge

Delphi 10 Seattle Enterprise

#14

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

23. Feb 2016, 07:52

Eventuell so?

markieren

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;