Hi,

ich versuche gerade einen Eintrag iterativ in einem JSONObject zu suchen, aber das gelingt mir irgendwie nicht.

Das Json schaut ungefähr so aus:

{
"1":"",
"2":0,
"3":0,
"4":{
"1":{
"name":{
"pre":"",
"sur":"",
},
}
}
}

Ich wollte gerne sowas wie FindValue(JSON, 'pre') realisieren. Im Prinzip kann ich auch so etwas wie

Found := JSON.GetValue('4') as TJSONValue;
Found := Found.GetValue<TJsonValue>('1');
Found := Found.GetValue<TJsonValue>('name');
found.GetValue<string>('pre')

machen, aber das finde ich nicht wirklich praktisch in dem Fall.

zusammenfalten · markieren

Delphi-Quellcode:

const
    // Der Formatter vom Forum zerstört die Leerzeichen, ist eigentlich alles schön eingerückt
    THE_JSON =
    '{ ' + sLineBreak +
    ' "1":"", ' + sLineBreak +
    ' "2":0, ' + sLineBreak +
    ' "3":0, ' + sLineBreak +
    ' "4":{ ' + sLineBreak +
    ' "1":{ ' + sLineBreak +
    ' "name":{ ' + sLineBreak +
    ' "pre":"", ' + sLineBreak +
    ' "sur":"" ' + sLineBreak +
    ' } ' + sLineBreak +
    ' } ' + sLineBreak +
    ' } ' + sLineBreak +
    '}';
var
    LWholeJson: TJSONValue;
    LPreJson: TJSONValue;
begin
    LWholeJson := TJSONObject.ParseJSONValue(THE_JSON, True, True);
    try
        LPreJson := LWholeJson.FindValue('4.1.name.pre');
        OutputDebugString(PChar('Content of "pre": ' + LPreJson.ToJSON));
    finally
        LWholeJson.Free;
    end;
end;