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

[hoika]

Hallo,

3 Variablen

Delphi-Quellcode:

var
  B1, B2, B3: Boolean;
  bOK: Boolean;
begin
  //
  bOK := ??
end;

bOK soll jetzt nur True sein, wenn nur einer der 3 Werte True ist.
Mein bisheriger Ansatz:

Delphi-Quellcode:

bOK := False;
if B1 then
begin
  bOK := True;
end;
if B2 then
begin
  if bOK then
  begin
    bOK := False;
    Exit;
  end;
  bOK := B2;
end;
if Be then
begin

usw.

Irgendwie ist heute Montag ...

Wie löst man das eleganter ???

Ich will nicht viele And's und Or's haben.

Delphi-Quellcode:

  if ((B1=True)  and (B2=False) and (B3=False)) or
     ((B1=False) and (B2=True)  and (B3=False)) or
     ((B1=False) and (B2=False) and (B3=True)) then
  begin
    bOK := True;
  end;

Naja, jetzt habe ich halt doch and's und or's ...


Heiko

[Luckie]

Mit einer OR Verknüpfung?

Delphi-Quellcode:

bOK := B1 or B2 or B3;

[TiGü]

Delphi-Quellcode:

bOK := B1 xor B2 xor B3;

[Luckie]

Warum XOR?

Ah ja. Stimmt. Hast Recht. Bei mir wäre bOK auch wahr, wenn zwei oder drei wahr wären, es darf aber nur einer wahr sein.

[p80286]

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

[hoika]

Hallo,
ja, mit dem Inc und Hochzählen sieht elegant aus ;)
Da kommt man nach 17:00 nicht drauf ... ;)

Ah so: elegant und trotzdem leserlich sollte es sein.

Jetzt schmeisse ich mal den Profiler an und mal schaun, was am schnellsten bei 1.000.000 Vergleiche ist.


Danke


Heiko

[SProske]

Zitat:

Zitat von TiGü (Beitrag 1330995)

Delphi-Quellcode:

bOK := B1 xor B2 xor B3;

Ergibt für 3mal True wieder True ;)

Zitat:

Zitat von p80286 (Beitrag 1331003)

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

Delphi-Quellcode:

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

[p80286]

Zitat:

Zitat von hoika (Beitrag 1331004)

Hallo,
ja, mit dem Inc und Hochzählen sieht elegant aus ;)
Da kommt man nach 17:00 nicht drauf ... ;)

Hmm, übersichtlich, ja als Array..
(Das XOR "gefällt" mir besser. -- Shit nicht zu ende gedacht)
(kommt wohl darauf an mit welchen Hilfskonstruktionen man zuerst gearbeitet hat)

Laß mal hören was effektiver ist.

Gruß
K-H

[HeZa]

Für den Datentype Boolean (WordBool ausgenommen) funktioniert folgendes:

Delphi-Quellcode:

bOk := Ord(b1) +Ord(b2) +Ord(b3) = 1

Ich ergänze:
Wenn man so etwas wie

Delphi-Quellcode:

b1 := Boolean(11);

macht wird es auch hässlich. :-)

[Sir Rufo]

Zitat:

Zitat von HeZa (Beitrag 1331014)

Für den Datentype Boolean (WordBool ausgenommen) funktioniert folgendes:

Delphi-Quellcode:

bOk := Ord(b1) +Ord(b2) +Ord(b3) = 1

Ich ergänze:
Wenn man so etwas wie

Delphi-Quellcode:

b1 := Boolean(11);

macht wird es auch hässlich. :-)

Korrekter wäre die Form

Delphi-Quellcode:

bOk := Ord( b1 ) + Ord( b2 ) + Ord( b3 ) = Ord( true );

:stupid: