fpc序列objectlist为json

fpc序列objectlist为json

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

unit Unit1;   {$mode delphi}   interface   uses fpjson, fpjsonrtti, Contnrs, //Generics.Collections,   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;   type     { Ttest }     Ttest = class   private     fid: string;   published     property id: string read fid write fid;   end;     { TForm1 }     TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     public     end;   var   Form1: TForm1;   implementation   {$R *.lfm}   { TForm1 }   procedure TForm1.Button1Click(Sender: TObject); var s: TJSONStreamer;   items: tobjectlist;   item: Ttest; begin   s := TJSONStreamer.Create(nil);   items := tobjectlist.Create;   item := ttest.Create;   item.id:='中';   items.Add(item);   item := ttest.Create;   item.id:='国';   items.Add(item);   memo1.Text:=s.ObjectToJSONString(items);  //{ "Objects" : [{ "id" : "中" }, { "id" : "国" }] }   s.Free;   items.Free; end;   end.