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

SProske

Registriert seit: 16. Feb 2015
Ort: Halle/S.
116 Beiträge

Delphi 10.2 Tokyo Enterprise

22. Feb 2016, 16:52

bOK := B1 xor B2 xor B3;

Ergibt für 3mal True wieder True

Delphi-Quellcode:

			w:=0;

if B1 then inc(w,1);

if B2 then inc(w,1);

if B3 then inc(w,1);

bok:=W=1;

Gruß
K-H

Könnte man auch schreiben als

bOK := IfThen(B1, 1, 0) + IfThen(B2, 1, 0) + IfThen(B3, 1, 0) = 1;

Sebastian

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Zur Linear-Darstellung wechseln Zur Hybrid-Darstellung wechseln Baum-Darstellung

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: