如何检查SuperObject中是否存在特定元素?

时间:2014-05-25 18:02:04

标签: json delphi superobject

我广泛使用SuperObject JSON库。我需要能够检查对象中是否存在特定元素。我可以检查一个元素的值,例如一个不存在的整数返回0。但是,如果0确实存在,则0是可能的值之一 - 因此我不能依赖观察ISuperObject元素的存在。我检查了ISuperObject.Exists(const S: String): Boolean;可以执行此操作的方法(例如我希望{{1}}之类的内容),但是看不到这样的内容。

如何检查JSON对象中是否存在特定元素?

2 个答案:

答案 0 :(得分:5)

SuperObject的最新更新包含Exists()功能。

var
  obj : ISuperObject;
begin
  obj := TSuperObject.ParseFile('..\..\SAMPLE.JSON',FALSE);
  if not obj.AsObject.Exists('FindMe') then begin
    WriteLn('Not found');
  end;
end;

如果您应该使用dwsJSON解析器,则可以使用类似的函数:

if json['DoesNotExists'].ElementCount = 0 then begin
  WriteLn('Not found');
end;

答案 1 :(得分:4)

您可以检查某个字段是否存在,如下所示:

function FieldExists(const ASuperObject: ISuperObject; const AField: String): Boolean;
var
  o: ISuperObject;
begin
  o := ASuperObject.O[AField];
  result := Assigned(o);
end;

基本上,如果存在json_superobject.O[field_name]ISuperObject应返回指向field_name的指针。否则,它返回nil