JSON To Object Problem

[Uwe Raabe]

Fehlt noch was:

Delphi-Quellcode:

  TWrapper = class
  private
    { wrapper ist nicht owner! }
    FEnergyDetails: TEnergyDetails;
  public
    property EnergyDetails: TEnergyDetails read FEnergyDetails;
  end;

Aufruf dann so:

Delphi-Quellcode:

  memo1.Text :=RESTResponse1.JSONValue.ToJSON;
  wrapper:= TJson.JsonToObject<TWrapper>(memo1.Text);
  try   
    energyDetail := wrapper.EnergyDetails;
  finally
    wrapper.Free;
  end; 
  listbox1.Items.Add(EnergyDetail.timeUnit);
  listbox1.Items.Add(EnergyDetail.units);