Dynamisch Klassenfelder mit Superobjects füllen

[Blackpit]

Ist mir auch gerade aufgefallen, so funktionierts:

Delphi-Quellcode:

function getComponents(aJsonString: String) : TDictionary<string,boolean>;
var
  json: ISuperObject;
  iterate: TSuperAvlIterator;
  Components :TDictionary<string,boolean>;
begin
  try
  json := SO(aJsonString);
  Components:=TDictionary<string,boolean>.create;
  iterate := json.AsObject.GetEnumerator;
  while iterate.MoveNext do
  begin
   Components.Add(iterate.Current.Name, iterate.Current.Value.b['active']);
  end;
  iterate.Free;
  finally
    json := nil;
  end;
  Result := Components;
end;

Danke für's helfen!