Memory Leaks bei Verwendung von System.JSON

[Der schöne Günther]

Was erwartest du?

Du lässt dir mittels JsonValue := TJSonObject.ParseJSONValue(JsonString); etwas erstellen und gibst es nie wieder frei.

Du musst das auch schon wieder freigeben.

Delphi-Quellcode:

  // create TJSonObject from string
  JsonValue := TJSonObject.ParseJSONValue(JsonString);
  if Assigned(JSonValue) then
     try

        // get the array
        JsonArray := JsonValue.GetValue<TJSONArray>('phones');

        // iterate the array
        for ArrayElement in JsonArray do begin
           if ArrayElement.GetValue<String>('name') = User then
           begin
            Result := ArrayElement.GetValue<boolean>(Field);
            break;
           end;
        end;
     finally
        JSonValue.Destroy();
     end;