Hi,
leider stehe ich mit dem danzen JSON-Parsen etwas auf dem Kriegsfuß und benötige mal eure Hilfe.
Ich will aus folgendem JSON:
Code:
{"Data":[{"
guid":"{2F4C80CC-DC24-4AC9-838D-61F59E7659E2}","name":"Name1"},{"
guid":"{739C25E7-4080-4054-A747-8F12F5E7BFCB}","name":"Name2"},{"
guid":"{429A5212-CE8C-43AC-823A-45E9ABFF9C8F}","name":"Name3"},{"
guid":"{360580D4-E1DA-4D05-A416-7B33EB8E683C}","name":"Name4"}]}
Das Array herauslösen und mir davon eine Liste erstellen.
Mein Ansatz funktioniert nicht. JArray ist immer nil.
Delphi-Quellcode:
var
JObj: TJSonObject;
JArrayItem: TJSONValue;
JArray: TJSONArray;
begin
JObj:=TJSONObject.Create;
JObj.ParseJSONValue(RecText);
JArray:=TJSONArray.Create;
JArray:=JObj.Values['
Data']
as TJSONArray;
for JArrayItem
in JArray
do
begin
Test:=TTest.Create;
Test.Guid:=(JArrayItem
as TJSONObject).GetValue('
guid').ToString;
Test.
Name:=(JArrayItem
as TJSONObject).GetValue('
name').ToString;
TestList.Add(Test);
end;
Meine Vermutung ist, dass mein Ansatz völlig verkehrt ist.
Kann mir einer sagen wie das richtig geht.