qjsonや記録型またはジェネリック配列は、文字列JSONに変換され、

ユニットは、Unit4; 
 
インタフェースは
 
使用
  Winapi.Windows、Winapi.Messages、System.SysUtils、System.Variants、System.Classes、Vcl.Graphics、
  Vcl.Controls、Vcl.Forms、Vcl.Dialogs、Vcl.StdCtrlsと、
 
入力
  TForm4 = クラス（TFormは）
    BTN1：のTButtonと、
    MEMO1：TMemoオブジェクト。
    LBL1：TLabel; 
    BTN2：TButtonの。
    手順btn1Click（送信者：TObjectを）;
    手順btn2Click（送信者：TObjectを）;
  プライベート
    { プライベート宣言} 
  公共
    { 公開宣言} 
  エンド。
 
// / <概要> 
///初心者ノートは、上記実施のキーワードで定義する必要があります。
// / </要約> 
と入力 TRenLei = レコード
  名：文字列; 
  年齢：整数; 
  性別：ブール; 
エンド; 
 
 
VAR 
  Form4：TForm4を、
 
実装
 
{ $のR＆LT *。 DFMは} 
 
使用qjsonを、
 
手順TForm4.btn1Click（送信者：TObjectを）;
 VAR 
  ARenLei：TRenLei; 
  MyQj：TQJson; 
始める
  MyQjを：。= TQJsonが作成し、
   試してみる
    // この例よりよく理解 
    ARenLei.name：= ' オバマ' ;
    ARenLei.age：= 1 ; 
    ARenLei.sex： = 真; 
 
    MyQj.FromRecord <TRenLei> （ARenLei）。
    Memo1.Lines.Clear; 
    Memo1.Lines.Add（MyQj.AsJson）。
  最後に
    MyQj.Free; 
  エンド;
エンド; 
 
手順TForm4.btn2Click（送信者：TObjectを）;
VaRの
  RenLeiArray：TARRAY <TRenLei> 。
  MyQj：TQJson。
開始
  MyQjを： = TQJson。作成します。
  しようと
    はsetLength（RenLeiArrayを、2 ）;
    RenLeiArray [ 0 ] 行う始まります
     
      ：名 = ' バイデン' ; 
      ：年齢 =を1。; 
      性別： = 真;
     エンド;
     で [RenLeiArray 。1 ] 行う
    開始
      ：名 = ' ヒラリー' ; 
      ：年齢 = 2 ; 
      性別： = falseは、
     終了; 
 
    / / これはよく理解されていない、私はここに、TARRAYを理解していない<TRenLei>一般的な配列JSONに変換することができ、メッセージを残し、誰が、以下の原則を知ってください。
    MyQj.FromRecord <TARRAY <TRenLei >> （RenLeiArray）。
    Memo1.Lines.Clear; 
    Memo1.Lines.Add（MyQj.AsJson）。
  最後に
    MyQj.Free; 
  エンド;
エンド; 
 
終わり。

ます。http：//blog.qdac.cc/のp = 4189からの転送？