Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
3.641 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

AW: JSON Elementname mit JSON auslesen

  Alt 15. Nov 2019, 13:02
Was unter 'profile.names' steht, ist kein Array, sondern ein Objekt mit 2 Eigenschaften, die jeweils wieder ein Objekt beinhalten.
Soweit ich gesehen habe, bietet SuperObject keinen einfachen Weg, um Name-Wert Paare eines Objekts zu iterieren.

Aber so geht es mit JsonDataObjects:

Delphi-Quellcode:
var
  vJSON: TJsonObject;
  vObj: TJsonObject;
  vItem: TJsonNameValuePair;
begin
  vJSON := TJsonBaseObject.ParseFromFile(filename, true) as TJsonObject;
  vObj := vJSON.O['profile'].O['names'];
  for vItem in vObj do
    Writeln(vItem.Name, ':', vItem.Value.S['showname']);
end.
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat