unit TSSafeUnitConverter;
interface
    function TwipsToPoints(value): real;
    function EmusToPoints(value): real;
    function HalfPointToPoints(value): real;
    function PercentToNumber(value): real;
    function ToInt(value): integer;

implementation

uses TSUnitConverter;

    function TwipsToPoints(value): real;
    begin
        if ifNil(value) then return 0;
        new_value := ifString(value) ? strToFloat(value) : value;
        return TSUnitConverter.TwipsToPoints(new_value);
    end;

    function HalfPointToPoints(value): real;
    begin
        if ifNil(value) then return 0;
        new_value := ifString(value) ? strToFloat(value) : value;
        return TSUnitConverter.HalfPointToPoints(new_value);
    end;

    function EmusToPoints(value): real;
    begin
        if ifNil(value) then return 0;
        new_value := ifString(value) ? strToFloat(value) : value;
        return TSUnitConverter.EmusToPoints(new_value);
    end;

    function PercentToNumber(value): real;
    begin
        if ifNil(value) then return 0;
        new_value := ifString(value) ? strToFloat(value) : value;
        return TSUnitConverter.PercentToNumber(new_value);
    end;

    function ToInt(value): integer;
    begin
        if ifNil(value) then return 0;
        return tryStrtoInt(value, r) ? r : 0;
    end;

end.