クラスの動的配列をシリアル化する次のコードがあります。何らかの理由で、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}]