一、参考我之前的博客，Delphi可以很方便的把类和结构体转换成JSON数据，但是数据量大了，就会非常之慢，1万条数据需要20秒左右。如果引用Serializers单元，那么100万数据只需要4秒左右，每秒处理20万+,速度还是很快的。
二、写一个简单的类

TPeople = class
private
FName: string;
FScore: Integer;
FAge: TDateTime;
public
property Name: string read FName write FName;
property Score: Integer read FScore write FScore;
property Age: TDateTime read FAge write FAge;
end;
二、写个100万的大循环，创建100万个类实例，并把数据输出成JSON
uses
REST.Json,
System.Json,
System.Types,
System.Json.Types,
System.Json.Writers,
System.Json.Builders,
System.Json.Serializers(*必须引用这个单元*);
procedure TForm1.Button6Click(Sender: TObject);
var
m_People: TPeople;
m_Time1, m_Time2: TDateTime;
m_PeopleList: TArray<TPeople>;
I: Integer;
b
