我有來自 url 鏈接的以下 Json 陣列。
[{"DATE":"01/10/2021","QUANTITY":4,"UNITPRICE":23.9},
{"DATE":"01/10/2021","QUANTITY":5.85,"UNITPRICE":23.9},
{"DATE":"30/09/2021","QUANTITY":10,"UNITPRICE":23.9},
{"DATE":"04/08/2021","QUANTITY":10,"UNITPRICE":28.83},
{"DATE":"01/07/2021","QUANTITY":1,"UNITPRICE":2.06},
{"DATE":"01/07/2021","QUANTITY":1,"UNITPRICE":2.06},
{"DATE":"30/06/2021","QUANTITY":1,"UNITPRICE":2.06},
{"DATE":"30/06/2021","QUANTITY":1,"UNITPRICE":2.06}]
我想從上面的 JSON 結構中提取資料，然后在 Memo 或 ListView 中顯示它。
創建一個 Json 陣列并將資料放入其中是正確的做法嗎？當我運行我的代碼并單擊按鈕時，它沒有顯示任何內容。另外，我是 Delphi 的新手。
這是我寫的代碼：
function GetURLAsString(const aurl: string): string;
var
IdHTTP1 : TidHTTP;
begin
IdHTTP1 := TIdHTTP.Create(nil);
try
IdHTTP1.IOHandler := TidSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
Result := IdHTTP1.Get(aurl);
finally
IdHTTP1.Free;
end;
end;
procedure TForm4.Button1Click(Sender: TObject);
var
jso : TJsonObject;
js : TJsonObject;
jsv : TJsonValue;
jsa : TJsonArray;
jsp : TJsonPair;
data : string;
i : integer;
LItem : TListViewItem;
begin
try
data := GetURLAsString('http://....');
except
on E: exception do
end;
try
jsv := TJSONObject.ParseJSONValue(data);
try
jso := jsv as TJSONObject;
jsa := TJSONArray.Create();
jsp := TJSONPair.Create('Array', jsa);
js.AddPair(jsp);
jsp := jso.Get('Array');
jsa := jsp.JsonValue as TJsonArray;
for I := 0 to jsa.Size - 1 do
begin
jso := jsa.Get(i) as TJsonObject;
for jsp in jso do
begin
if jsp.JsonString.Value = 'DATE' then
begin
form4.ListView1.BeginUpdate;
LItem := form4.ListView1.Items.Add;
LItem.Text := jso.GetValue('DATE').ToString;
form4.ListView1.EndUpdate;
end;
end;
end;
finally
jsv.Free;
end;
except
on E: exception do
end;
end;
uj5u.com熱心網友回復：
我懷疑您會遇到訪問沖突，因為您訪問了尚未初始化的 js 變數的 AddPair 方法，并且由于您捕獲了例外并對其進行了處理，因此您看不到它。
但是，您使解決方案過于復雜，從而導致錯誤。這應該有效：
jsa := jsv as TJSONArray;
form4.ListView1.BeginUpdate;
try
for I := 0 to jsa.Size - 1 do
begin
jso := jsa.Get(i) as TJsonObject;
LItem := form4.ListView1.Items.Add;
LItem.Text := jso.GetValue('DATE').ToString;
end;
finally
form4.ListView1.EndUpdate;
end;
finally
jsv.Free;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/346435.html
下一篇：為什么FileAge回傳意外值？