Json Array of String: Wie Array-Items per Schleife auslesen

**juergen**

Hallo,

mir fällt der Umgang mit Json noch ziemlich schwer. Ich habe 1 String-Array in der Json-Datei.
Folgendes Json (gekürzt).

markieren

Code:

			{

    "Database": {

        "DB-ServerName": "",

        "DB-Name": "",

        "DB-User": "",

        "DB-User-Pw": 0,

        "DB-Provider": 0

    },

    "ShorthandSymbol": [

        "UxRT",

        "KuZT",

        "KpZR",

        "BFRS",

        "HKJD",

        "UDTR",

        "SI",

        "dgws",

        "DEFdg",

        "EIZ",

        "ITFd"

    ]

}

Ich habe den Json-Dateiinhalt in einem Json-Objekt:

markieren

Delphi-Quellcode:

			...   

VAR

  my_jsonObj: TJSONObject;

BEGIN

 IF FileExists( ExtractFilePath( ParamStr( 0 ) ) + 'Settings.json' ) THEN

    BEGIN

      my_jsonObj := TJSONObject.ParseJSONValue( TFile.ReadAllText( ExtractFilePath( ParamStr( 0 ) ) + 'Settings.json' ) ) AS TJSONObject;

...

Jetzt muss ich irgendwie über eine Schleife (?) die einzelnen Stringwerte aus dem Array auslesen.

Wie komme ich an die einzelnen Json-String-Array-Werte?

Vielen Dank schon mal vorab.

Json Array of String: Wie Array-Items per Schleife auslesen

Json Array of String: Wie Array-Items per Schleife auslesen

Forumregeln