Einzelnen Beitrag anzeigen

amigage

Registriert seit: 11. Nov 2005
Ort: Leipzig
274 Beiträge
 
Delphi 12 Athens
 
#1

JSON Elementname mit JSON auslesen

  Alt 14. Nov 2019, 17:32
Hallo,

ich versuche mit Superobject eine JSON Struktur (hier vereinfacht dargestellt) auszulesen.

Code:
{
  "profile":{
     "names":{
        "Default":{"showname":"der angezeigte Profilname"},
        "Nummer1":{"showname":"der angezeigte Profilname"}
        }
  }
}
Und zwar benötige ich Zugriff auf die Profile "Default" und "Nummer1" sowie deren jeweiligen Werte "showname".

Delphi-Quellcode:
var
  vJSON: ISuperObject;
  vArray : TSuperArray;
  vItem: ISuperObject;
  I: Integer;
begin
  vJSON := TSuperObject.ParseFile(filename, true);

  vArray := vJSON.A['profile.names'];
  for i := 0 to vArray.Length-1 do
  begin
    vItem := vArray.O[i];
    showmessage(vItem. ??? ); // <---------------
  end;
Wie bekomme ich den Namen des Profiles unterhalb von "names"?
Ich brauche ja den mir erst einmal unbekannten Namen des Profils, um dann den anzuzeigenden Profilnamen ermitteln zu können.
Ich stehe leider etwas auf dem Schlauch...

Vielen Dank für einen Tipp!
  Mit Zitat antworten Zitat