Delphi.cz

Český portál Delphi

System.JSON v Delphi XE6

Od XE6 je součástí RTL Delphi podpora pro JSON. V předchozích verzích to byla součástí DataSnap, ale od XE6 je nově součástí přímo RTL v jednotce System.JSON.

Použití:

uses
  System.Json;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  JsonObject: TJSONObject;
  JsonArray: TJSONArray;
begin
  JsonObject := TJSONObject.Create;
  JsonObject.AddPair('firma', 'chňapík s r.o.');
  JsonArray := TJSONArray.Create;
  JsonArray.Add('element 1');
  JsonArray.Add('element 2');
  JsonArray.Add(JsonObject);

  ShowMessage(JsonArray.ToString);
end;

Datum: 2014-08-19 23:51:00 Tagy: RTL, JSON

Novinky v Delphi