2010-06-02

在 JSON 中取得所有 Name 清單

如何在JSON自字串中索取所有的Name清單呢?
function JsonNames(aJson: String): String;
var
  vSTS: TSuperTableString;
  iSO: ISuperObject;
  vSA: TSuperArray;
  ii: Integer;
  vStrs: TStrings;
begin
  vStrs := TStringList.Create;
  JsonLoad(iSO, aJson);
  vSTS := iSO.AsObject;
  vSA := vSTS.GetNames.AsArray;
  for ii := 0 to vSA.Length - 1 do
  begin
    vStrs.Append(vSA.N[ii].AsString);
  end;
  Result := vStrs.Text;
  vStrs.Free;
end;
JSON

沒有留言: