| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Хитроумный TJSONNumber: как определиться с Integer или Float?

mfender ©   (2013-10-13 03:20:00) 

Назрел незатейливый вопрос по TJSONValue. Как известно, он может быть типов TJSONString, TJSONNumber, TJSONObject, TJSONArray, TJSONTrue, TJSONFalse и TJSONNull. Всё хорошо и всё легко привести к нужному типу в Delphi. Но вот, зараза, TJSONNumber портит всё.

Например, парсим строку вида {"Key":"Этот строка"}. Тут он легко соображает, что это TJSONString, и в вариант очень просто запихнуть строку:

procedure TRequestParamObject._SetJSON(const Value: TJSONValue);
var
 V: TJSONValue;
 FParamValue: Variant;
begin
 V := (Value as TJSONObject).Get('Key').JsonValue;
 if V is TJSONString then
   FParamValue := V.Value;

То же самое с прочими. Например, с булями:
{"Key":false}

if (V is TJSONTrue) or (V is TJSONFalse) then
   FParamValue := StrToBool(V.Value);

Но как определиться с числами?
Например, два случая:
{"Key":465746} и {"Key":1254.3658}

В обоих случаях они будут TJSONNumber, и остаётся загадкой, как их интерпретировать, чтобы применить правильную функцию приведения. Например, в первом случае ничего страшного не случится, если я напишу


if V is TJSONNumber then
   FParamValue := StrToFloat(V.Value);

Но вызовет исключение, если приводить StrToInt('1245.3658').

К тому же я сильно заинтересован, чтобы тип в варианте был конкретно varInteger или varDouble, взависимости от того что мне нужно.

Как с этим быть? Есть ли какие-то готовые механизмы проверки?

---

KilkennyCat   (2013-10-14 16:27:00) [1]

> Ega23 ©   (14.10.13 14:53) [5]

вряд ли, там же максимально значение мантиссы меньше интегера

---

Ega23   (2013-10-14 14:53:00) [2]

> variant не?


Тогда уж всё флоатом считать.

---

KilkennyCat   (2013-10-13 22:53:00) [3]

> Забил такой костыль:

а для кого существует try?
а функции типа strtofloatdef?

---

robt5   (2013-10-13 21:44:00) [4]

variant не?

---

bems   (2013-10-13 14:47:00) [5]

Оно растёт из жаваскрипта, смирись :)

---

mfender   (2013-10-13 03:38:00) [6]

Забил такой костыль:

 if V is TJSONNumber then
 begin
   if Frac(StrToFloat(V.Value)) <> 0 then
     FParamValue := StrToFloat(V.Value)
   else
     FParamValue := StrToInt(V.Value);
 end;

Наверное, это самое простое что можно сделать в данном случае.

---

Наверх