3

クラスの動的配列をシリアル化する次のコードがあります。何らかの理由で、SuperObjectはクラスプロパティ名ではなくプライベート変数をシリアル化します。SuperObjectでこの動作を修正する方法を誰かにアドバイスできますか?

class function TJSON.AsJSON<T>(AObject: T; Indent: Boolean = False): string;
var
  Ctx: TSuperRttiContext;
begin
  Ctx := TSuperRttiContext.Create;
  try
    Result := Ctx.AsJson<T>(AObject).AsJSon(Indent);
  finally
    Ctx.Free;
  end;
end;

type
  TMyClass = class
  private
    FName_: String;
    FAge_: Integer;
  public
    property Name: String read FName_ write FName_;
    property Age: Integer read FAge_ write FAge_;
  end;

procedure TFormTest.Button27Click(Sender: TObject);
var
  MyClassArray: TArray<TMyClass>;
  MyClass1, MyClass2: TMyClass;
begin
  MyClass1 := TMyClass.Create;
  MyClass1.Name := 'Joe';
  MyClass1.Age := 10;

  MyClass2 := TMyClass.Create;
  MyClass2.Name := 'Dan';
  MyClass2.Age := 13;

  SetLength(MyClassArray, 2);
  MyClassArray[0] := MyClass1;
  MyClassArray[1] := MyClass2;

  Memo1.Text := TJSON.AsJSON<TArray<TMyClass>>(MyClassArray);
end;

上記のコードは、次のJSONを生成します。

[{"FName_":"Joe","FAge_":10},{"FName_":"Dan","FAge_":13}]

私が求めているのは次のJSONです。

[{"Name":"Joe","Age":10},{"Name":"Dan","Age":13}]
4

2 に答える 2

1

現時点では不可能であり、おそらくthis issue. JSONマーシャリングでのDelphi XE2 Datasnapserializes privateフィールドでさえ、私の見解では、制限を考慮せずに新しい拡張RTTIに与えられたより深い可視性の結果です.

于 2012-05-29T12:30:48.790 に答える