[델파이] IntToBool, BoolToInt함수가 필요할 때는

IntToBool, BoolToInt함수가 필요해서 인터넷을 찾아보니 나름 깔끔한 소스가 있었다.

function BoolToInt(const Value: Boolean): Integer;
begin
  Result := Ord(Value);
end;

 

function IntToBool(const Value: Integer): Boolean;
begin
  Result := Value <> 0;
end;

 

*	BOOL in Delphi	Boolean in Delphi
original Type	LongBool	compiler magic
size in bytes	4	1
false	0	0
true	-1 ($FFFFFFFF)	1

Bool하고 Boolean하고 값이 정수로 변형할 때 값이 틀려진다.