• Values of type Single not handled by JSONWriter.AppendValue

    By Johan Kanngard 1 decade ago

    Steps to reproduce:

    Dim jsonWriter As New JSONWriter()

    json = json + jsonWriter.BeginObject()

    json = json + jsonWriter.Key("decimalvalue")

    Dim value As Single

    value = 123.45

    json = json + jsonWriter.AppendValue(value)

    => "decimalvalue":""

    should be "decimalvalue:123.34



    JSONWriter.AppendValue in the section:

    Case V_INTEGER, V_LONG, V_DOUBLE, V_CURRENCY, V_BYTE

    should be:

    Case V_INTEGER, V_LONG, V_DOUBLE, V_CURRENCY, V_BYTE, V_SINGLE

    • Fixed in 1.0.4

      By Troy Reimer 1 decade ago

      Thanks for the input.

      • Great!

        By Johan Kanngard 1 decade ago

        Thanks, BTW, you can change the status of bugs to fixed!