Delphi对象到json字符串如何忽略空和空字段

Question

我有一个休息请求类如下

TRedeemItemsClass = class
private
  [JSONName('RedeemCode')]
  FRedeemCode: String;
  [JSONName('AssetKey')]
  FAssetKey:String;
public
  property RedeemCode: String read FRedeemCode write FRedeemCode;
  property AssetKey:String read FAssetKey write FAssetKey;
  function ToJsonString: string;
  class function FromJsonString(AJsonString: string): TRedeemItemsClass;
end;

implementation

function TRedeemItemsClass.ToJsonString: string;
begin
  result := TJson.ObjectToJsonString(self);
end;

class function TRedeemItemsClass.FromJsonString(AJsonString: string): TRedeemItemsClass;
begin
  result := TJson.JsonToObject<TRedeemItemsClass>(AJsonString)
end;

---

jObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(reqRedeem.ToJsonString), 0) as TJSONObject;

使用这行代码，我得到了我的 json 请求字符串，例如

{"RedeemCode":"","AssetKey":"xxxxx"}

正如预期的那样。

兑换请求正文 json 字符串应该是其中之一（ 根据从客户收到的信息assetkey或redeemcode）

{"RedeemItems":[{"AssetKey":"xxxxx"}]}

或

{"RedeemItems":[{"RedeemCode":"xxxxx"}]}

所以在短期内，我想忽略所有为空或 nil 的字段（包括数组）。

我正在使用 Delphi 10 Seattle。

Answer 1

您可以使用以下方法：

function TRedeemItemsClass.ToJsonString: string;
begin
  result := TJson.ObjectToJsonString(self, [TJsonOption.joIgnoreEmptyStrings]);
end;

或

function TRedeemItemsClass.ToJsonObject: TJSONObject;
begin
  result := TJson.ObjectToJsonObject(self, [TJsonOption.joIgnoreEmptyStrings]);
end;

Answer 2

您可以简单地检查它的nil 条件：

if Assigned(field) then
begin
  // do something
end;

或

if field <> nil then
begin
  // do something
end;