Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Parameter

(InstanceValue : TccJson; Const ClassArrayName:String = ''; Const InstanceName : String = ''; Const StartPath: String = '') : Boolean;

Beschreibung

Die Methode fügt ein TccJson Objekt an die Stelle StartPath hinzu. Dabei wird der definierte Wurzelknoten genommen. ClassArrayName gibt den Namen des Arrays an, in den das Objekt geschrieben wird, falls es nicht vorhanden ist wird es angelegt. Auf den Instanz-Namen kann verzichtet werden, wenn der Parameter ClassArrayName verwendet wurde.

Beispiel

Code Block
languagedelphi
linenumberstrue
Konto   := TccJSON.Create;
Inhaber := TccJSON.Create;

Try
  Inhaber.AddValue('Name', 'Mustermann');
  Inhaber.AddValue('Vorname', 'Max');
  Inhaber.AddValueAsBool('Maennlich', True);

  Konto.AddValue('Herausgeber', 'Xema');
  Konto.AddValue('Nummer', '1234-5678-9012-3456');
  Konto.AddValueAsNumber('Deckung', 2000000);
  Konto.AddValue('Waehrung', 'EURO');

  Konto.AddJsonObjValue(Inhaber,'','Inhaber');

Finally
  Konto.free;
  Inhaber.free;
End;
// {"Herausgeber":"Xema","Nummer":"1234-5678-9012-3456","Deckung":2000000,"Waehrung":"EURO","Inhaber":{"Name":"Mustermann","Vorname":"Max","Maennlich":true}}

Beispiel

Code Block
languagedelphi
linenumberstrue
Var
  Adresse          : String;
  Wohnort          : TccJSON;
  Buero            : TccJSON;

Begin
  Person          := TccJSON.Create;
  Wohnort         := TccJSON.Create;
  Buero           := TccJSON.Create;
                
  Try
    Wohnort.AddValue( 'Strasse', 'Kreuzbühlstrasse' );
    Wohnort.AddValueAsNumber('Hausnummer', 12 );
    Wohnort.AddValue( 'Wohnort', 'Albstadt' );
    Wohnort.AddValueAsNumber( 'PLZ', 72158 );

    Buero.AddValue( 'Strasse', 'Rübenheulestrasse' );
    Buero.AddValueAsNumber('Hausnummer', 1);
    Buero.AddValue( 'Wohnort', 'Albstadt' );
    Buero.AddValueAsNumber( 'PLZ', 72162 );
                  
    Person.AddValue( 'Vorname', 'Moritz' );
    Person.AddValue( 'Name', 'Huberbatscher' );

    Person.AddJsonObjValue( Wohnort,'Adresse','Home');
    Person.AddJsonObjValue( Buero,    'Adresse','Geschäft' );

    showMessage(Person.GetSource());
  Finally
    Wohnort.Free;
    Buero.Free;            
    Person.Free;
  End;
End;
// {"Vorname":"Moritz","Name":"Huberbatscher","Adresse":[{"Home":{"Strasse":"Kreuzbühlstrasse","Hausnummer":12,"Wohnort":"Albstadt","PLZ":72158}},{"Geschäft":{"Strasse":"Rübenheulestrasse","Hausnummer":1,"Wohnort":"Albstadt","PLZ":72162}}]}

gggg

Table of Contents

Children Display
alltrue
depth2