Получить из Boolean integer

[Дmmm]

Допустим, нужно что-то типа
var b: boolean; x: integer;
if b then
x:=1 else
x:=-1;
Можно это одним оператором, чтобы без if ?

[саша40]

У Boolean значения такие: 1 = True и 0 = False.

[Аватар]

Так, например: Ord(b)-Ord(not b)

[Toxa]

Получить из Boolean integer можно преобразованием

x := integer(b);

а одним оператором, чтобы без if, вот

 x := integer(b) * 2 - 1;

[indexx]

function bool2Int(b: boolean): integer;
begin
  if b then Result := 1 else
    result := 0;
end;

x := bool2Int(b);

[StriderX]

Сообщение от Дmmm

Допустим, нужно что-то типа
var b: boolean; x: integer;
if b then
x:=1 else
x:=-1;
Можно это одним оператором, чтобы без if ?

В модуле Math можно откопать IfThen. Однако, следует помнить, что это обычная функция и не залетать на том, что аргументы для функции вычисляются заранее. То есть конструкция вида x := Math.IfThen(a > 0, b div a, a div b) отлетит с делением на ноль =-)

[Slym]

или так

uses Math;
x:=-1*round(Power(-1,ord(b)));

[Arigato]

Сообщение от indexx

x := bool2Int(b);

Извращение.

[indexx]

Извращение.

Хамство...

[Аватар]

Хамство...

Конечно извращение. Чего придумывать, если есть уже Integer(b), Ord(b), Byte(b)