JSONPair mit Extended oder Integer

[Sir Rufo]

Zitat:

Zitat von Uwe Raabe (Beitrag 1327367)

Zitat:

Zitat von Captnemo (Beitrag 1327362)

Habt ihr noch einen guten Tipp für Boolean?

Ab Seattle geht immerhin:

Delphi-Quellcode:

JSON.AddPair(TJSONPair.Create('Tuer',TJSONBool.Create(value)))

Was auch nicht wirklich angenehm ist.

Da ist mir

Delphi-Quellcode:

JSON.AddPair( 'Tuer', value);

wesentlich lieber, schon wegen der Übersichtlichkeit (und der wesentlich geringeren Tipparbeit) ;)

Und noch schicker wäre es mit

Delphi-Quellcode:

JSON['Tuer'] := value;

:mrgreen:

P.S. Hab die Erweiterung dafür mal oben ergänzt ;)

[Captnemo]

Zitat:

Zitat von Sir Rufo (Beitrag 1327366)

Nun ja, das ist eigentlich Schema F.

Einen Record wegen dem impliziten Cast
Ein Closure als Factory
Ein/Zwei Class Helper um die Funktionalität unterzujubeln

Mehr ist es ja nicht :stupid:

Ja, Nee, is klar ;) Wenn mir das mal so locker von der Hand gehen würde, dann würde ich gleich mal meinen Nickname ändern ;)

Zitat:

Zitat von Sir Rufo (Beitrag 1327368)

Und noch schicker wäre es mit

Delphi-Quellcode:

JSON['Tuer'] := value;

:mrgreen:

So hätte ich mir das gewünscht. Wenn ich da mal ein kurzen Blick auf Python werfe (nur mal auf dieses Thema bezogen)....naja.

Jetzt muss ich das ganze nur noch als Array verpacken. Mal sehen wie weit ich komme ;) (Die Hilfe hat mir bei JSON bisher nur wenig genützt)

[Sir Rufo]

Hier habe ich so etwas auch schon mal verwurstet

https://github.com/SirRufo/PropertyList

[Captnemo]

Das mit dem TJSONArray hab ich hinbekommen.
Aber wie füge ich dieses jetzt dem JSONObject hinzu?

Wenn ich das so mache

Delphi-Quellcode:

JSON.AddPair('TestArray',JSONArray.ToString);

dann habe ich das Array mit Quotes, was im Grund ja falsch ist.
Ich müsste es ja ohne Quotes hinzufügen.

[Captnemo]

Hat sich erledigt ;) Einfach mal das ToString weglassen.

Man, das ist ein Gewurschtel. Wahrscheinlich alles Gewöhnungssache.