五、Delphi10.3通過REST單元使類和JSON數據互相轉換

一、我們定義一個簡單的類

  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;

 

二、我們寫下如下Delphi代碼：

uses
  REST.Json,
  System.Json,
  System.Types,
  System.Json.Types,
  System.Json.Writers,
  System.Json.Builders;

procedure TForm1.Button5Click(Sender: TObject);
var
  I: Integer;
  m_Str: string;
  m_People: TPeople;
begin
  Memo1.Clear;
  Memo2.Clear;
  //實例化類
  m_People := TPeople.Create;
  try
    m_People.Name := '張三';
    m_People.Age := Now;
    m_People.Score := 98;
    //類轉JSON
    m_Str := TJson.ObjectToJsonString(m_People);
  finally
    m_People.Free;
  end;
  //輸出JSON
  Memo1.Lines.Add(m_Str);

  //JSON轉類
  m_People := TJson.JsonToObject<TPeople>(m_Str);
  try
    //輸出類
    Memo2.Lines.Add(Format('姓名:%s,分數:%d,年齡:%s', [m_People.Name, m_People.Score, FormatDateTime('yyyy-mm-dd', m_People.Age)]));
  finally
    m_People.Free;
  end;
end;

 

三、顯示效果如下：

 

不忘初心，如果您認為這篇文章有價值，認同作者的付出，可以微信二維碼打賞任意金額給作者（微信號：382477247）哦，謝謝。