從Json物件創建陣列

我有以下 JSON 結構，從網路呼叫它：

[
  {
    "Code":"31212",
    "Desc":"JOHN",
    "DOYDESC":"MADRID",
    "Street":"Str41",
    "StreetNo":"86"
  },
  {
    "Code":"30214",
    "Desc":"GEORGE",
    "DOYDESC":"NEW YORK",
    "Street":"Str3",
    "StreetNo":null
  },
  {
    "Code":"09215",
    "Desc":"MARY",
    "DOYDESC":"PARIS",
    "Street":"Str3",
    "StreetNo":"22"
  },
  {
    "Code":"10217",
    "Desc":"MEGAN",
    "DOYDESC":"ROME",
    "Street":"Str4",
    "StreetNo":null
  }
]

我希望用戶在 中給出一個數字Edit.Text，然后搜索 的值Code以查找給定的值是否存在。

有沒有辦法創建一個以CodeJSON 中的值命名的陣列？

例如，要創建這樣的東西：

Code = ["31212","30214","09215","10217"] 

然后進行搜索？或者，是否有另一種方法可以Code從 JSON 中找到特定值？到目前為止我試過這個：

procedure Tlog_form.Button2Click(Sender: TObject);
var
  jso : TJsonObject;
  jsv,jsval : TJsonValue;
  jsa,jsarr : TJsonArray;
  data,str : string;
  i,j,user : integer;
  jsp : TJsonPair;
  arr : array of string;
begin
  try
    data := GetURLAsString('http://...');
  except
    on E: exception do
  end;

  try
    jsv := TJSONObject.ParseJSONValue(data);

    try
      jsa := jsv as TJSONArray;

      try
        for I := 0 to jsa.Size - 1 do
        begin
          jso := jsa.Get(i) as TJsonObject;
          if jso.ToString = 'Code' then
          begin
            str := jso.GetValue('Code').ToString;

            if Edit1.Text = str then
            begin
              ShowMessage('found it');
            end;

          end;
        end;
      finally
      end;
    finally
      jsv.Free;
    end;
  except
    on E: exception do
  end;
end;

當我除錯時，它沒有得到任何錯誤。但它仍然不起作用。

uj5u.com熱心網友回復：

您正在將TJSONObject陣列中的每個轉換為 a string，然后將其與您的TEdit文本進行比較。這顯然不匹配。您只需要比較Codeeach的欄位，TJSONObject如果您if jso.ToString = 'Code' then完全洗掉檢查，您就會這樣做，例如：

procedure Tlog_form.Button2Click(Sender: TObject);
var
  jsv : TJSONValue;
  jsa : TJSONArray;
  jso : TJSONObject;
  data, str, code : string;
  I : integer;
begin
  str := Edit1.Text;
  try
    data := GetURLAsString('http://...');
    jsv := TJSONObject.ParseJSONValue(data);
    if jsv <> nil then
    try
      jsa := jsv as TJSONArray;
      for I := 0 to jsa.Size - 1 do
      begin
        jso := jsa.Get(I) as TJSONObject;
        code := jso.GetValue('Code').ToString;
        if str = code then
        begin
          ShowMessage('found it');
        end;
      end;
    finally
      jsv.Free;
    end;
  except
  end;
end;

uj5u.com熱心網友回復：

我不確定我是否非常了解您，但是如果您嘗試TALJsonDocument（https://github.com/Zeus64/alcinoe），您將擁有以下功能：

Function ALFindJsonNodeByTextChildNodeValue(const JsonNode:TalJsonNode;
                                            Const ChildNodeName: AnsiString;
                                            Const ChildNodeValue : AnsiString;
                                            Const Recurse: Boolean = False): TALJsonNode;

標籤：数组 json 德尔福 rad-studio

上一篇：帶有TabSheetinvisibleTabVisible的DelphiPageControl:=False;

下一篇：Delphi編譯器錯誤？使用“物件”，但使用“記錄”編譯