2010-06-21

在 JSON 中取得所有 Array 內容

如何在 JSON 自字串中索取所有的 Array 內容呢?慣用 TStrings,將 Array 內容轉化到 TStirngs 格式,方便自己使用。
function JsonArray(aJson: String): String;
var
  iSO: ISuperObject;
  vSA: TSuperArray;
  ii: Integer;
  vStrs: TStrings;
begin
  Result := '';
  vStrs := TStringList.Create;
  JsonLoad(iSO, aJson);
  if not iSO.IsType(stArray) then
    Exit;

  vSA := iSO.AsArray;
  for ii := 0 to vSA.Length - 1 do
  begin
    vStrs.Append(vSA.O[ii].AsString);
  end;
  Result := vStrs.Text;
  vStrs.Free;
end;
JSON

沒有留言: