JSON rekursiv nach Eintrag suchen

[Peter666]

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.

[TiGü]

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;