Delphi 将对象转换为JSON字符串或TJSONObject

本文整理自网络，侵删。

 
type
  TPerson = record
  private
    FAge: Integer;
    FName: string;
  public
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

uses
  System.Generics.Collections,
  REST.Json;

procedure TForm1.Button1Click(Sender: TObject);
var
  Alice, Bob: TPerson;
  People: TList<TPerson>;
  S: string;
begin
  People := TList<TPerson>.Create;

  Alice.Name := 'Alice';
  Alice.Age := 20;
  People.Add(Alice);
  Bob.Name := 'Bob';
  Bob.Age := 30;
  People.Add(Bob);

  S := TJson.ObjectToJsonString(People);
  Memo1.Text := S;
end;


 

相关阅读 >>

Delphi 把文件锁定到任务栏

Delphi 网卡工作状态检测

Delphi10 一段汇编程序

Delphi 实现一个程序在另一个程序内运行

Delphi xe 使用savestate保存firemonkey状态的示例

Delphi 判断 中文字符

Delphi 学习 sql 语句 - select(9): 其他

Delphi 取目录下指定文件到列表

Delphi tms web core messagedlg对话框用法

Delphi如何在一个窗体中嵌入另一个窗体

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 将对象转换为JSON字符串或TJSONObject