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.