json Убрать поле при сериализации

[rareMax]

Как убрать поле класса из сериализации через Rest.Json?

Вот как я пробую избавиться от поля Foo:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  REST.Json,
  System.JSON.Serializers,
  System.SysUtils;

type
  TFoo = class
  private
    FValue1: Integer;
  public
    Value2: Integer;
    property Value3: Integer read FValue1 write FValue1;
  end;

  [JsonSerialize(TJsonMemberSerialization.&Public)]
  TBar = class
  private
    FValue1: Integer;
    FFoo: TFoo;
  public
    Value2: Integer;
    property Value3: Integer read FValue1 write FValue1;
  //  property Foo: TFoo read FFoo write FFoo;
  end;

procedure Test;
var
  LBar: TBar;
begin
  LBar := TBar.Create;
  try
    Writeln(TJson.ObjectToJsonString(LBar));
  finally
    LBar.Free;
  end;
end;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    Test;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Но на выходе все равно есть поле Foo.

Цитата

{"value1":0,"foo":null,"value2":0}

 

[#WAMACO]

TBar = class
  private
    FValue1: Integer;
  // FFoo: TFoo;
  public
    Value2: Integer;
    property Value3: Integer read FValue1 write FValue1;
  //  property Foo: TFoo read FFoo write FFoo;
  end;

Попробуй так...

[r@di0]

TFoo = class(TObject)
  private
    [JSONMarshalled(False)]
    FAge: Byte;
  public
    FName    : string;
    FSurname : string;
  end;

[rareMax]

12 часов назад, wamaco сказал:

TBar = class
  private
    FValue1: Integer;
  // FFoo: TFoo;
  public
    Value2: Integer;
    property Value3: Integer read FValue1 write FValue1;
  //  property Foo: TFoo read FFoo write FFoo;
  end;

Попробуй так...

Ну на самом деле FFoo в приватной секции мне нужна.

12 часов назад, r@di0 сказал:

TFoo = class(TObject)
  private
    [JSONMarshalled(False)]
    FAge: Byte;
  public
    FName    : string;
    FSurname : string;
  end;

Отлично, то что нужно