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!