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?

bOK := B1 or B2 or B3;

[TiGü]

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 von TiGü:

bOK := B1 xor B2 xor B3;

Ergibt für 3mal True wieder True

Zitat von 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

Könnte man auch schreiben als

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

[p80286]

Zitat von hoika:

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:
bOk := Ord(b1) +Ord(b2) +Ord(b3) = 1 Ich ergänze:
Wenn man so etwas wie b1 := Boolean(11); macht wird es auch hässlich.

[Sir Rufo]

Zitat von HeZa:

Für den Datentype Boolean (WordBool ausgenommen) funktioniert folgendes:
bOk := Ord(b1) +Ord(b2) +Ord(b3) = 1 Ich ergänze:
Wenn man so etwas wie b1 := Boolean(11); macht wird es auch hässlich.

Korrekter wäre die Form bOk := Ord( b1 ) + Ord( b2 ) + Ord( b3 ) = Ord( true );