我如何知道TJSONNumber是double还是double

发布于02月10日

我正在编写一个通用调用，用于通过JSON存储和检索数据.因此，当从JSON加载数据时，我可以验证它是TJSONNumber，但缺乏正确的方法来确定它是integer还是double.目前我是这样做的，但我想还有更好的方法吗？

FDataStore: TDictionary<string, Variant>;


for index := 0 to Value.Count - 1 do begin
   Pair := Value.Pairs[Index];
   if Pair.JsonValue is TJSONNumber then
        try
          FDataStore.AddOrSetValue(Pair.JsonString.Value, (Pair.JsonValue as TJSONNumber).AsInt);
        except
          FDataStore.AddOrSetValue(Pair.JsonString.Value, (Pair.JsonValue as TJSONNumber).AsDouble);
        end;
end;

推荐答案

不幸的是，TJSONNumber不能告诉你实际的类型，所以你必须自己解析原始文本来弄清楚.

例如，使用TryStrToInt64()(而不是try..except)，例如:

var
  IntValue: Int64;
  V: Variant;

if TryStrToInt64(TJSONNumber(Pair.JsonValue).Value, IntValue) then
begin
  if IntValue >= Min(Integer) and IntValue <= Max(Integer) then
    V := Integer(IntValue)
  else
    V := IntValue;
end else
  V := TJSONNumber(Pair.JsonValue).AsDouble);

FDataStore.AddOrSetValue(Pair.JsonString.Value, Value);

或者，您可以扫描JSON字符串中的'.'和'E'个字符(除了'+'和'-'之外，JSON数字中唯一允许的非数字字符)，例如:

var
  V: Variant;

if LastDelimiter('.Ee', TJSONNumber(Pair.JsonValue).Value) = 0 then
begin
  var IntValue := TJSONNumber(Pair.JsonValue).AsInt64;
  if IntValue >= Min(Integer) and IntValue <= Max(Integer) then
    V := Integer(IntValue)
  else
    V := IntValue
end
else
  V := TJSONNumber(Pair.JsonValue).AsDouble;

FDataStore.AddOrSetValue(Pair.JsonString.Value, V);

请注意，TJSONNumber也可以转换为UInt和UInt64，因此您可能也要考虑处理这些类型.