CopyToClipBoard (TJSon)

De Wiki1000
Version du 6 décembre 2013 à 15:24 par Syfre (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
procedure CopyToClipBoard;

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

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

Voir aussi:





Whos here now:   Members 0   Guests 1   Bots & Crawlers 0
 
Outils personnels