CopyToClipBoard (TJSon)

<source lang="delphi">procedure CopyToClipBoard;</source>

Cette méthode copie le document dans le presse papier.

Cela peut être utile en phase de mise au point.

Exemples:

Dans cet exemple, json.AsString retourne un document équivalent au document parsé.

<source lang="delphi"> //Procedure JsonParser; var json:TJson; S,stag:string; idx:Integer; begin

 json := TJson.Create(
  '{
   "employees": [
   { "firstName":"John" , "lastName":"Doe" },
   { "firstName":"Anna" , "lastName":"Smith" },
   { "firstName":"Peter" , "lastName":"Jones" }
   ]
   }'
 );
 json.CopyToClipBoard;
 showMessage(json.AsString);

end;

</source>

Voir aussi: