Versionen im Vergleich

Alte Version 2

changes.mady.by.user Development (Unlicensed)

Gespeichert am

verglichen mit

Neue Version Aktuell

changes.mady.by.user Merve Yurdakul

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 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

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