StrToBool: Boolean True = -1, False = 0 ?

[markus5766h]

meine Bescheidenen Lösungen dafür :

Code:

function BoolToStr(Value : Boolean) : String;
begin
  if Value then Result := 'True' else Result := 'False';
end;

function StrToBool(Value : String) : Boolean;
begin
  Result := Value = 'True';
end;

function IntToBool(Value : Integer) : Boolean;
begin
  Result := Value = 1;
end;

function BoolToInt(Value : Boolean) : Byte;
begin
  //if Value then Result := 1 else Result := 0;
 Result := not (Value = 0);
end;