Delphi10.3通过Json.Serializers单元对大量数据序列化
Posted 像一棵海草海草海草
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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;
三、我们运行一下,看看结果:
不忘初心,如果您认为这篇文章有价值,认同作者的付出,可以微信二维码打赏任意金额给作者(微信号:382477247)哦,谢谢。
以上是关于Delphi10.3通过Json.Serializers单元对大量数据序列化的主要内容,如果未能解决你的问题,请参考以下文章
从 Delphi 10.3 中的 TWebBrowser OnNavigateError 中提取 StatusCode