/
TccJSON.OpenNodeInArray

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;

Related content

TccJSON.OpenNode
TccJSON.OpenNode
More like this
TccJSON.OpenNodeByIndex
TccJSON.OpenNodeByIndex
More like this
TccJSON.GetValueFromArrayAsString
TccJSON.GetValueFromArrayAsString
More like this
TccJSON.AddJsonObjValue
TccJSON.AddJsonObjValue
More like this
TccJSON.GetSourceFromPath
TccJSON.GetSourceFromPath
More like this
TccJSON Scripting Beispiel
TccJSON Scripting Beispiel
More like this