Получить из JSON число в исходном виде

@hazimut · Регистрация: 24.11.2016

Author24 — интернет-сервис помощи студентам

lasarus 1.8.0

лабел получает значение amt в виде 5.6000000010000001E+001, в чем проблема?

Pascal

 var
    jData : TJSONData;
    jObject : TJSONObject;
begin
    jData:=GetJSON('{"return" : { "amt" : 56.00000001}}');
    jObject := TJSONObject(jData);
    Label1.Caption:=jObject.FindPath('return.amt').AsString;

@volvo · 28.02.2018, 12:18

Сообщение от hazimut

в чем проблема?

В точности (а вернее - в неточности) представления вещественных чисел. При использовании AsString данные в любом случае получаются в числовом виде, и только потом конвертируются в строку, но только в формате ffExponent. Поэтому сам получай данные, как число и конвертируй его в строку так, как тебе нужно, а не так, как делает класс TJSONData по умолчанию. Как-то так:

Pascal

1	Label1.Caption := FloatToStrF( jObject.FindPath('return.amt').AsFloat, ffGeneral, 10, 10 );

	28.02.2018, 12:18

Опции темы

Получить из JSON число в исходном виде

Решение