TJSonObject Freigabe

[dataspider]

Hallo

Ich wollte mit privat schnell mal Währungskurse holen mit Fixer.io API.

Delphi-Quellcode:

procedure TFrmMain.Button1Click(Sender: TObject);
Var
  LHttp: THttpClient;
  LResp: IHttpResponse;
  LJObj: TJSonObject;
  LJRates: TJSonObject;
  LUrl: string;
  I: Integer;
begin
  LUrl := BaseUrl + 'latest?access_key=' + Key + '&symbols=USD,GBP,NOK,HKD&format=1';
  LHttp := THTTPClient.Create;
  try
    LResp := LHttp.Get(LUrl);
    LJObj := TJSONObject.ParseJSONValue(LResp.ContentAsString(TEncoding.UTF8)) as TJSONObject;
    try
      LJRates := LJObj.GetValue<TJSONObject>('rates');
      try
        for I := 0 to LJRates.Count - 1 do
        begin
          Memo1.Lines.Add(LJRates.Pairs[I].JsonString.Value);
          Memo1.Lines.Add(LJRates.Pairs[I].JsonValue.Value);
        end;
      finally
        LJRates.Free;
      end;
    finally
      //LJObj.Free;
    end;
  finally
    LHttp.Free;
  end;
end;

Will ich LJObj freigeben, erhalte ich eine AV.
LJRates kann ich freigeben.

Aber was ich auch mache, am Ende erhalte ich beim Verlassen Memory Leaks.
Was mache ich falsch?

Danke

Frank

[DeddyH]

Versuch mal, LJObj freizugeben, aber nicht LJRates. Letzteres ist ja ein Kindobjekt des Ersteren und wird von diesem automatisch mit freigegeben, deshalb auch die AV.

[dataspider]

:oops:
Vielen Dank, genau so funktioniert es!