TccJSON.OpenNodeInArray

Parameter

(StartPath : String; Index : Integer; Const PathToObject : String = ''): Boolean;

Beschreibung

Die Funktion setzt einen neuen Wurzelknoten. Der Standort wird durch StartPath zum Array, den Index (ElementNo) und dem PathToObject definiert. Wird kein PathToObject angegeben, dann wird davon ausgegangen, dass es sich beim Array um einen ArrayOfObjects handelt bei dem die Instanzen namenslos sind. Es werden in dem Beispiel alle Objekte mit allen Attributen gezeigt, deren Betrag DMBTR über 200 ist.

Hinweis: Zu beachten ist dass, zur Angabe des Pfad einen anderen JPathSeparator zugewiesen worden ist, da sich im Attributsnamen ein ‚/‘ befindet und das zu Problemen bei der Verarbeitung führen kann.

Beispiel

for i:= 0 to resultCount - 1 do
begin
  if JSON.OpenNodeInArray('/EASY/EX_OI_LESE_OFFENE_KRED>tables>RESULTS',i) = true then
  begin
    Amount := JSON.GetValueAsNumber('DMBTR',0 );

    if Amount > 200 then
    begin

      Content := 'Datensatz über 200: '+crlf;

      for j := 0 to JSON.GetNodeCount()-1 do
      begin
        Content := Content + VarToStr(JSON.GetNodeNameByIndex(j)) + ':';
        Content := Content + VarToStr(JSON.GetNodeValueByIndex(j))+ crlf;
      end;

      showMessage(Content);
      Content := '';
    end;
  end;
    //---------------- Startpunkt wieder neu setzen --------------------
    JSON.ClearStartElement();
end;