TccJSON.AddJsonObjValue

Parameter

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

Beschreibung

Die Methode fügt ein TJsonObjekt an die Stelle StartPath hinzu. Dabei wird der definierte Wurzelknoten genommen. Auf den Instanz-Namen kann verzichtet werden, wenn es sich z.B. um ein Objekt im Array handelt.

Beispiel

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;

Beispiel

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;