DBXJSON parsen

[SyntaxXx]

Ich habe mich jetzt überall umgesehen, finde aber keine Antwort auf meine Frage.
Ich möchte eine IOS App schreiben, welche einen JSON String parsed.

Daher muss ich leider DBXJSON verwenden, da SuperObject leider nicht unterstützt wird.
Doch ich finde nirgendwo eine gescheite Anleitung, wie ich DBXJSON zu verwenden habe.

Finde nur ein paar Sourcecodes, bei denen man aber ca. 30 Zeilen code braucht, um nen String zu parsen.
Bei Super Object ist das in 2 Zeilen möglich.


Hier mal ein Beispiel String:

Zitat:

{"cat":["Cat1","Cat2","Cat3","Cat4"]}

Wie kann ich diesen jetzt einfach parsen?

[mkinzler]

http://edn.embarcadero.com/article/40882
https://code.google.com/p/delphi-oop/
http://www.delphipraxis.net/157970-j...ro-object.html

Warum wird SuperObject nicht unterstützt?

[SyntaxXx]

Unter den angegebenen Links finde ich nicht passendes.
Und ich möchte nichts in nem TreeView anzeigen.

Wenn ich die SuperObject.pas einbinde, bekomme ich diverse Fehler angezeigt.

Z.B.
"Unit 'Windows' konnte nicht eingebunden werden"
"Undeklarierter Bezeichner 'PAnsiChar' in Zeile XY"
...

[mkinzler]

Die Unit stammt halt aus der vor iOS Ära, sollte aber eigentlich leicht portierbar sein.

[mjustin]

Zitat von SyntaxXx:

Wenn ich die SuperObject.pas einbinde, bekomme ich diverse Fehler angezeigt.

Z.B.
"Unit 'Windows' konnte nicht eingebunden werden"
"Undeklarierter Bezeichner 'PAnsiChar' in Zeile XY"
...

laut https://code.google.com/p/superobject/ unterstützt SuperObject

Zitat:

" Delphi and FreePascal (win32, win64, linux32, linux64, MacOSX Intel) "

[mkinzler]

Ich habe gerade keinen Mac zum Testen, aber nach diesen Änderungen ab Zeile 812 wird fehlerfrei compliliert

Delphi-Quellcode:

uses System.Sysutils,
{$IFDEF UNIX}
  baseunix, unix, DateUtils
{$ELSE}
  {$IFDEF IOS}
       System.Types, System.StrUtils
  {$ELSE}
      Windows
   {$ENDIF}
{$ENDIF}
{$IFDEF FPC or IOS}
  ,sockets
{$ELSE}
   ,WinSock
{$ENDIF};