JSON rekursiv nach Eintrag suchen

[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;