Delphi Rest.JSON JsonToObject仅适用于f变量

我只是看着REST.Json ObjectToJsonString()和JsonToObject()调用.

主要是尝试做这样的事情：

How to convert an object to JSON and back with a single line of code

我注意到,当他们以F字符开始时,我只能获得变量.我找不到任何关于此的文件.这是预期的行为吗？我应该在开始时使用F命名我的类中的所有变量吗？如果是,有人可以解释原因吗？

我创建了一个类TTestJSON并定义了两个成员变量并将它们设置为’WORKS’和’FAILS’.

然后我从对象创建了一个JSON字符串值：

{
  "varThatWorksBeacuseItStartsWithF":"WORKS","sVarThatFailsBecauseItStartsWithS":"FAILS"
}

从JSON字符串返回到对象时,只有正确重置fVarThatWorksBeacuseItStartsWithF变量.在下面的代码中,test：= TJson.JsonToObject< TTestJSON>(JsonStr);使用上面的JSON,注意sVarThatFailsBecauseItStartsWithS是“”而不是“FAILS”.

procedure TForm3.btn1Click(Sender: TObject);
var
  test : TTestJSON;
  JsonStr : String;
begin
  m1.Clear;
  test := TTestJSON.Create;
  try
    test.fVarThatWorksBeacuseItStartsWithF := 'WORKS';
    test.sVarThatFailsBecauseItStartsWithS := 'FAILS';
    JsonStr := TJson.ObjectToJsonString( test );
  finally
    test.Free;
  end;
  m1.Lines.Add(  '** JSONStr Value START **' + #13#10 + JsonStr + '** JSONStr Value END **' + #13#10 );

  test := TJson.JsonToObject<TTestJSON>(JsonStr);
  try
    m1.Lines.Add('** Obj loaded from JSON String Start **' + #13#10 + TJson.ObjectToJsonString( test ) + #13#10 + '** Obj loaded from JSON String End **');
  finally
    test.Free;
  end;
end;

从结果中,以f开头的var将f从fSON字符串中剥离出来,而以s开头的那个仍然存在于其中.我原以为第二个结果会是这样的：

{
  "varThatWorksBeacuseItStartsWithF":"WORKS","sVarThatFailsBecauseItStartsWithS":"FAILS"
}

以下是重现的完整代码 – 只需在vcl表单上有一个按钮和一个备忘录 – 也使用REST.Json：

unit Main;

interface

uses
  Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,rest.Json;

type
  TTestJSON = class
    fVarThatWorksBeacuseItStartsWithF : String;
    sVarThatFailsBecauseItStartsWithS : String;
  end;

  TForm3 = class(TForm)
    btn1: TButton;
    m1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);
var
  test : TTestJSON;
  JsonStr : String;
begin
  m1.Clear;
  test := TTestJSON.Create;
  try
    test.fVarThatWorksBeacuseItStartsWithF := 'WORKS';
    test.sVarThatFailsBecauseItStartsWithS := 'FAILS';
    JsonStr := TJson.ObjectToJsonString( test );
  finally
    test.Free;
  end;
  m1.Lines.Add(  '** JSONStr Value START **' + #13#10 + JsonStr + '** JSONStr Value END **' + #13#10 );

  test := TJson.JsonToObject<TTestJSON>(JsonStr);
  try
    m1.Lines.Add('** Obj loaded from JSON String Start **' + #13#10 + TJson.ObjectToJsonString( test ) + #13#10 + '** Obj loaded from JSON String End **');
  finally
    test.Free;
  end;
end;

end.