频道分类

Delphi10.3通过Json.Serializers单元对大量数据序列化

作者:admin 来源: 日期:2019/10/1 16:46:51 人气: 标签:

 
Delphi10.3通过Json.Serializers单元对大量数据序列化
一、参考我之前的博客,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;
begin
  Memo1.Clear;
  Memo2.Clear;
  m_Time1 := Now;
  SetLength(m_PeopleList, 1000001);
  for I := 0 to 1000000 do
  begin
    m_PeopleList[I] := TPeople.Create;
    try
      // 循环赋值
      m_PeopleList[I].Name := '张三';
      m_PeopleList[I].Age := Now;
      m_PeopleList[I].Score := I;
    finally
    end;
  end;
  TJsonSerializer.Create.Serialize(m_PeopleList);
  m_Time2 := Now;
  //看看100万个实例类生产JSON需要多久
  Memo1.Lines.Add(FormatDateTime('ss.zzz', m_Time2 - m_Time1));
  //把JSON显示出来
  Memo2.Text := TJsonSerializer.Create.Serialize(m_PeopleList);
end;