BoolToInt

← →
Никита (2003-12-03 15:40) [0]

Мастера, здравствуйте.

Есть переменная типа boolean хочу получить результат типа integer (0 или 1).

Какая есть функция?

← →
Darrin (2003-12-03 15:42) [1]

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

← →
Anatoly Podgoretsky (2003-12-03 15:42) [2]

Функции нет, если же без трюков, то
if value then Result := 1 else Result := 0

← →
Digitman (2003-12-03 15:42) [3]

Result := Integer(BooleanValue);

← →
Amoeba (2003-12-03 15:43) [4]

Просто делаешь обыкновенное преобразование типов:

Int_var := Integer(Boolean_var);

← →
Wizard_Ex (2003-12-03 15:48) [5]

Это перечислимый тип.
Так что
Int_var := Ord(Boolean_var);
на мой взгляд будет правильней;

← →
Wizard_Ex (2003-12-03 15:51) [6]

> Anatoly Podgoretsky © (03.12.03 15:42) [2]
> Функции нет, если же без трюков, то
> if value then Result := 1 else Result := 0

Так что функция есть

← →
Никита (2003-12-03 15:54) [7]

Спасибо всем!

← →
Anatoly Podgoretsky (2003-12-03 15:58) [8]

Не вовсем, поскольку результат имеет тип Longint, что не одно и тоже, что и Integer, но решение правильное.