Boolean in Integer umwandeln

[xZise]

Wie kann ich einen Boolean in einen Integer umwandeln?
"BoolToInt" gibts nicht

Wenn dann müsste ich es über "StrToInteger(BoolToStr())" machen. Und dass ist ja ein bisschen "unsinnig"

[morp2]

Selber machen?

[xZise]

Und wie?

[mkinzler]

Ist doch leicht implementierbar:

Delphi-Quellcode:

function BoolToInt( b: Boolean): Integer;
begin
    if b then result := 1 else result := 0;
end;

[xZise]

Joar ^^ Das ist natürlich sinnvoll

Okay ^^

[thkerkmann]

Hi,

wie wär's denn mit
  i := ord (b); Gruss

[Mr_G]

Oder direkt so:
i := Integer(b) Das sollte auch hinhauen. Stellt sich nur die Frage ob das Ok/elegant ist

[St.Pauli]

Zitat von Mr_G:

Das sollte auch hinhauen. Stellt sich nur die Frage ob das Ok/elegant ist

Meiner Meinung nach die eleganteste Lösung. Hätte es auch so gelöst!

[k-weddige]

Zitat von St.Pauli:

Zitat von Mr_G:

Das sollte auch hinhauen. Stellt sich nur die Frage ob das Ok/elegant ist

Meiner Meinung nach die eleganteste Lösung.

Jein! So bekommt man zwar den Wert der Variable, aber nicht die Bedeutung.
vgl. http://www.delphipraxis.net/internal...=601791#601791
Bedeutungen hat Boolean nur zwei, Werte aber 256.

Konstantin

[Popov]

Meiner Kenntnis nach ist Ord (i := ord (b);) die korrekte Funktion dafür. Auch Borland wählt Ord in ihren Beispielen.

Aber um hier ein wenig das Chaos zu vergrößern, hier noch die vierte Möglichkeit

Delphi-Quellcode:

const
  BoolToInt: array [Boolean] of Integer = (0, 1);
begin
  ShowMessage(IntToStr(  BoolToInt[False]  ));
end;

Hat aber nicht den Anspruch nur annähend der richtige Weg zu sein, aber wenn es mal nicht 0 und 1 sein sollen, sondern vielleicht 0 und -1 (oder noch was anderes), dann wäre das am elegantesten und kürzesten.

Delphi-Quellcode:

const
  BoolToStr: array [Boolean] of String = ('Falsch', 'Richtig');
begin
  ShowMessage( BoolToStr[False] );
end;