JSONPair mit Extended oder Integer

[Sir Rufo]

Zitat von Uwe Raabe:

Zitat von Captnemo:

Habt ihr noch einen guten Tipp für Boolean?

Ab Seattle geht immerhin:

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

Was auch nicht wirklich angenehm ist.

Da ist mir JSON.AddPair( 'Tuer', value); wesentlich lieber, schon wegen der Übersichtlichkeit (und der wesentlich geringeren Tipparbeit)

Und noch schicker wäre es mit JSON['Tuer'] := value;

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

[Captnemo]

Zitat von Sir Rufo:

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

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 von Sir Rufo:

Und noch schicker wäre es mit JSON['Tuer'] := value;

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 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.