Assign (TJSon)

procedure Assign(value:TJSon);

Cette méthode permet d'affecter un document à un autre.

Le contenu du document cible est perdu.

Exemples:

//Procedure JsonParser;
var json,json2:TJson; S,stag:string; idx:Integer;
begin
  json := TJson.Create(
   '{
    "employees": [
    { "firstName":"John" , "lastName":"Doe" },
    { "firstName":"Anna" , "lastName":"Smith" },
    { "firstName":"Peter" , "lastName":"Jones" }
    ]
    }'
  );
  // Empty document
  json2 := TJson.Create('');
  json2.Assign(json);
  showMessage(json2.AsString);
end;

Voir aussi: