Hallo,
mir fällt der Umgang mit Json noch ziemlich schwer. Ich habe 1 String-Array in der Json-Datei.
Folgendes Json (gekürzt).
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:
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.