XE5 JSON与Delphi Object的互换

最新推荐文章于 2025-04-05 15:51:11 发布

郁闷的坦然

最新推荐文章于 2025-04-05 15:51:11 发布

阅读量5k

点赞数

分类专栏： XE5

本文链接：https://blog.youkuaiyun.com/cmdasm/article/details/12784627

版权

这篇博客介绍了如何在Delphi中将TPerson对象转换为JSON字符串，以及如何将JSON字符串还原为TPerson对象。通过TJSONMarshal和TJSONUnMarshal类，实现了对象与JSON之间的互换。在FormCreate事件中，展示了具体的转换代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit2;

interface

  uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
    DBXJSON, DBXJSONReflect;

  type
    TPerson = class(TObject)
    public
      Name: String;
      Password: String;
      Age: Integer;
    end;

    TForm2 = class(TForm)
      Memo1: TMemo;
      procedure FormCreate(Sender: TObject);
    private
      function ObjectToJSON(AData: TObject): TJSONValue;
      function JSONToObject(AJSONValue: TJSONValue): TObject; 
    public                                                    
    end;

  var
    Form2: TForm2;

implementation

  {$R *.dfm}

  function TForm2.JSONToObject(AJSONValue: TJSONValue): TObject;
  var
    lUnMarshal: TJSONUnMarshal;
  begin
    lUnMarshal := TJSONUnMarshal.Create();
    try
      Result := lUnMarshal.Unmarshal(AJSONValue);
    finally
      FreeAndNil(lUnMarshal);
    end;
  end

最低0.47元/天解锁文章