Dynamisch Klassenfelder mit Superobjects füllen

[Blackpit]

Ups, die Klassendefinition sollte natürlich so aussehen:

Delphi-Quellcode:

  TProjectComponents = class
  public
    component1 : Boolean;
    component2 : Boolean;
    component3 : Boolean;
    component4 : Boolean;
    component5 : Boolean;
    function writeToJson():String;
    procedure readFromJson(aJsonString: String);
  end;

Danke schon mal für die Hinweise, den Dictionary-Vorschlag versuch ich mal umzusetzten. Mit RTTI muss ich mich erst mal auseinandersetzen.