Anzahl Einträge in JsonArray

[rotwildmarcy]

Guten Abend,

ich muss für einen Schleifendurchlauf die Anzahl Einträge im JsonArray wissen.

Ich dachte, da käme man mit JsonArray.Count dran. Das wirft mir aber eime Zugriffsverletzung aus.

Delphi-Quellcode:

For i := 0 to JSonArray.Count do
Begin
   JSonObject := TJSonObject.Create;
   JsonValue:=JSonObject.ParseJSONValue(st);
   if (JSONValue is TJSONArray) then
    id := ((JSONValue as TJSONArray).Items[i] as TJSonObject).Get('id').JSONValue.Value;
    name := ((JSONValue as TJSONArray).Items[i] as TJSonObject).Get('name').JSONValue.Value;
    stringgrid1.Cells[1,j] := id;

Danke vorab für eine Tip in die richtige Richtung.

[zeras]

Nimm doch mal den Debugger. Dann wirst du sehen, dass er einige Male durch die Schleife kommt. Vielleicht auch mal mit "Count -1" probieren, da das Array in der Regel mit 0 anfängt und wenn bis Count iteriert wird, dann ist es einmal zuviel.

[himitsu]

Nicht nur "vielleicht"!

Aber das wird wohl nicht der Fehler sein, denn dort kommt ein Index-Fehler (OutOfRange, bzw. genauer eine EArgumentOutOfRangeException).
Viel eher würde ich auf das Get vom TJsonObject tippen,
denn das liefert NIL, wenn es kein SubObjekt mit diesem Namen (id oder name) gibt,
und demnach muß es im JSONValue knallen, weil DU die Rückgabe vorher nicht prüfst.

Und ich vermute mal stark, da sollte ein BEGIN END; hinterm if (JSONValue is TJSONArray) then vorkommen?

Alles Dinge, die man beim Debuggen leicht bemerken könnte.




Ach ja, ParseJSONValue ist eine Class-Function,
welche man normaler Weise als TJSONValue.ParseJSONValue(...) aufruft.

Zitat:

Delphi-Quellcode:

JsonObject := TJsonObject.Create;
JsonValue := JsonObject.ParseJSONValue(st);

JsonValue := TJSONValue.ParseJSONValue(st);
Also das JsonObject ist unnötig. (auch wenn es zum Glück kein "Fehler" ist)

Und ich hoffe du gibst am Ende auch alles wieder brav frei. (Free)

Da es aber grad zufällig so wunderschön bei dir knallt ... Wäre super, wenn man mehr Ressorcen-Schutzblöcke (try finally) sehen würde.


PS: Den Knopf mit dem Delphi-Helm hattest du nicht zufällig bemerkt?
[delphi] dein Code [/delphi]

[rotwildmarcy]

Erstmal sorry für den vergessenen Code Tag - Ich bin hier nicht so oft unterwegs, und den hab ich tatsächlich verpennt.

Ich bin noch blutiger Anfänger, gerade was die Json Nummer betrifft.

Mir ist das leider immer noch nicht klar. Sollte denn JSonArray.Count nicht eigentlich eine Zahl auswerfen, jetzt ganz unabhängig von möglichen Fehlern in der Schleife?
Wenn ich mir das vor der Schleife, zb. mit Showmessage anzeigen lassen, kriege ich auch die Zugriffsverletzung.

[DeddyH]

Dann liegt der Verdacht nahe, dass Dein JSONArray überhaupt nicht initialisiert ist. Wenn Du vor der Schleife ein

Delphi-Quellcode:

//Vor dem Zugriff erst einmal prüfen
if Assigned(JSONArray) then

einfügst, kommt dann immer noch eine Zugriffsverletzung? Kommst Du trotzdem in die Schleife(Haltepunkt im Debugger setzen)?

[rotwildmarcy]

Er kommt dann bis zu Schleife und gibt die Zugriffsverletzung.
Wenn ich die Schleife komplett auskommentiere, geht die Anzeige von JsonArray.Count jetzt aber mit dem If Assigned

Der ausgeworfene Wert stimmt allerdings nicht. Es wird immer die 48 ausgeworfen, egal wieviel Einträge es tatsächlich sind.