JSON與Delphi Object的互換

Delphi自從增強了RTTI後，語言的可靈活性多大增強，Delphi的dbExpress中提供了DBXJSON，和DBXJSONReflect兩個單元，可提供JSON序列化

下面的例子是實現Delphi實體對象轉換為JSON字符串，以及JSON字符串轉換為Delphi 實體對象的示例：（在Delphi XE3測試通過）

  
 
 
     
   
     TPerson =      
         
     TForm2 =              
               JSONToObject(AJSONValue: TJSONValue): TObject; 
                                                         
      
   
  
 
 
   
 
      
    
     lUnMarshal :=     
       Result :=     
          
      
    
     lMarshal :=     
       Result :=     
          
      
     
     lJSONString: String =    
      /// Object Convert      Memo1.Lines.Add(     Memo1.Lines.Add(     Memo1.Lines.Add(     lPerson       :=     lPerson.Name    :=      lPerson.Password :=      lPerson.Age   :=      lJSONValue       :=        Memo1.Lines.Add(     Memo1.Lines.Add(     /// JSON Convert      Memo1.Lines.Add(     Memo1.Lines.Add(     Memo1.Lines.Add(     Memo1.Lines.Add(     lJSONValue :=     lPerson := JSONToObject(lJSONValue)       Memo1.Lines.Add( +     Memo1.Lines.Add( +     Memo1.Lines.Add( +      Memo1.Lines.Add(     Memo1.Lines.Add(    
 .