Delphi开发Web API：如何区分空字符串与未赋值状态？

在处理PATCH请求时，核心痛点是无法区分DTO的字符串属性是从未被赋值（应保留原对象的原有值）还是被显式设置为空字符串（应将原对象对应属性更新为空白），现有if personDTO.FirstName <> ''的判断逻辑完全无法覆盖这种场景。结合百万行代码库的维护需求，以下是几个通用稳健的解决方案：

方案1：为DTO属性配套"已设置"标记字段 #

• 给每个字符串属性新增一个对应的布尔标记字段，比如FirstNameIsSet: Boolean
• 解析JSON请求时，只要JSON中存在目标字段（哪怕值是空字符串），就将对应的IsSet标记设为True；若字段不存在，则标记保持False
• 映射到实体对象时的逻辑改为：

if personDTO.FirstNameIsSet then
  personObject.FirstName := personDTO.FirstName;

• 优势：逻辑直观，对现有代码侵入性低，可通过基类继承或代码生成工具批量生成标记字段，适合大规模代码库快速适配。

方案2：用Variant类型存储DTO属性 #

• 利用Delphi Variant类型支持区分Unassigned、Null和空字符串的特性
• 解析JSON时，先通过TJSONObject.Contains('firstName')判断字段是否存在：存在则将值存入Variant；不存在则保持Variant为Unassigned
• 映射逻辑示例：

if VarIsAssigned(personDTO.FirstName) then
  personObject.FirstName := personDTO.FirstName;

• 注意：必须先判断字段存在性，不能直接调用GetValue——因为不存在的字段会返回空字符串，会和显式空值混淆。

方案3：自定义可选字符串包装类型 #

• 封装一个TOptionalString记录（或类），包含Value: string和IsSet: Boolean两个成员
• 重载赋值运算符，当显式给Value赋值时自动将IsSet设为True；默认构造时IsSet为False
• 解析JSON时，若字段存在则赋值Value并设置IsSet为True，否则保持默认状态
• 映射逻辑：

if personDTO.FirstName.IsSet then
  personObject.FirstName := personDTO.FirstName.Value;

• 优势：类型安全，可在整个代码库统一标准化，适合长期维护的大型项目，可借助重构工具批量替换现有字符串属性。

关键实现提示 #

解析JSON时必须严格区分"字段不存在"和"字段存在但值为空"：优先使用TJSONObject.Contains()判断字段存在性，再调用GetValue()获取具体值，避免因默认返回空字符串导致的逻辑混淆。

内容的提问来源于stack exchange，提问作者Matt Baech