德爾福TJson.ObjectToJsonString（TFoo）：從JSON字符串

Question

我有一個對象如：

TFoo = class(TObject) 
    private 
    FConnection : TADOConnection; 
    public 
    FName : string; 
    FSurname : string; 
end; 

我轉換這個對象的JSON字符串ObjectToJsonString，例如：

uses REST.Json; 
// ... 
var 
    aFoo : TFoo; 
begin 
    aFoo := TFoo.create; 

    Memo1.lines.text := TJson.ObjectToJsonString(aFoo); 

    aFoo.free; 
end; 

排除私有變量

TJson.ObjectToJsonString使私有和公共變量json字符串。

我想從json字符串中排除一些像FConnection這樣的變量（它也公開連接字符串）。

任何建議只允許在公共變量上進行json轉換？

Answer 1

使用JSONMarshalled屬性：

屬性指定的字段或類型是否應被編組和解組。

如果JSONMarshalledAttribute不存在於某個字段或類型中，則應對該字段或類型進行編組和解組。如果JSONMarshalledAttribute存在但是False，則編組和解組過程跳過該字段或類型。

例如：

type 
    TFoo = class(TObject) 
    private 
    [JSONMarshalled(False)] 
    FConnection : TADOConnection; 

    public 
    FName : string; 
    FSurname : string; 
    end; 

也看一下JSONName屬性。默認情況下，如果字段名稱以F字符開頭，則編組會剝離生成的JSON數據中的F。在你上面的例子中，這很好，所以FName和FSurname編組爲Name和Surname。但是，這可能並不總是可取的，這樣你就可以使用JSONName在JSON數據來指定自己的字段名稱，如：

type 
    TFoo = class(TObject) 
    private 
    [JSONMarshalled(False)] 
    FConnection : TADOConnection; 

    public 
    Name : string; 
    Surname : string; 

    [JSONName('FullName')] 
    FullName : string; 
    end;