Versionen im Vergleich

Alte Version 1

changes.mady.by.user Former user

Gespeichert am

verglichen mit

Neue Version 2

changes.mady.by.user Development (Unlicensed)

Gespeichert am

Schlüssel

  • Diese Zeile wurde hinzugefügt.
  • Diese Zeile wurde entfernt.
  • Formatierung wurde geändert.

Parameter

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

Beschreibung

Die Methode fügt ein TJsonObjekt TccJson Objekt an die Stelle StartPath hinzu. Dabei wird der definierte Wurzelknoten genommen. Auf 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 es sich z.B. um ein Objekt im Array handelt.der Parameter ClassArrayName verwendet wurde.

Beispiel

Codeblock
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

Codeblock
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}}]}

Inhalt

Untergeordnete Seiten (Anzeige untergeordneter Seiten)
alltrue
depth2