JSONArray aus einer Value

[Hobbycoder]

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.

[Der schöne Günther]

ParseJsonValue(..) ist eine Klassenfunktion die ein TJsonValue zurückgibt.

[Hobbycoder]

Danke für den Anstoß. Jetzt geht's