2021年5月5日 星期三

Delphi 原生支持JSON的链式写法 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |12:48:00

procedure TForm2.Button1Click(Sender: TObject); var sb: TStringBuilder; sw: TStringWriter; jtw: TJsonTextWriter; job: TJSONObjectBuilder; begin sb :=