Forum: Algorithmen, Datenstrukturen und Klassendesign
by Blackpit,
19. Aug 2019
Ist mir auch gerade aufgefallen, so funktionierts:
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;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Blackpit,
19. Aug 2019
Die Idee mit dem Dictionary fand ich gut, bekomme es aber nicht hin.
Der Gedanke war das Dictionary flexibel zu füllen, so sieht mein Versuch aus:
TProjectComponents = class
public
Components: TDictionary<string,boolean>;//
function getComponents(aJsonString: String) : TDictionary<string,boolean>;
// function writeToJson():String;
procedure readFromJson(aJsonString:...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Blackpit,
19. Aug 2019
Ups, die Klassendefinition sollte natürlich so aussehen:
TProjectComponents = class
public
component1 : Boolean;
component2 : Boolean;
component3 : Boolean;
component4 : Boolean;
component5 : Boolean;
function writeToJson():String;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Blackpit,
18. Aug 2019
Hallo,
ich komm nicht weiter mit einer KlassenProzedur, welche mittels Superobject
Daten von einem WS zieht. Ich würde die IndexfromString-Lösung gerne dynamisch gestalten, um nur noch die Klassenfelder bei Bedarf zu ergänzen.
Meine verzweifelten Bemühungen als Kommentar ;)
Class:
TProjectComponents = class
public
component1 : Boolean;
component1 : Boolean;