Delphi XML绑定无法读取空值属性？咨询配置及标准合规性

问题场景 #

给定如下XML片段：

<Parameter Name="report_code" Value=""/>

使用Delphi自动生成的XML绑定类，代码如下：

TXMLParameterType = class(TXMLNode, IXMLParameterType)
protected
  { IXMLParameterType }
  function Get_Name: WideString;
  function Get_Value: WideString;
  procedure Set_Name(Value: WideString);
  procedure Set_Value(Value: WideString);
end;

function TXMLParameterType.Get_Name: WideString;
begin
  Result := AttributeNodes['Name'].Text;
end;

procedure TXMLParameterType.Set_Name(Value: WideString);
begin
  SetAttribute('Name', Value);
end;

function TXMLParameterType.Get_Value: WideString;
begin
  Result := AttributeNodes['Value'].NodeValue;
end;

procedure TXMLParameterType.Set_Value(Value: WideString);
begin
  SetAttribute('Value', Value);
end;

查看XMLDoc.pas中NodeValue的获取逻辑：

function TXMLNode.GetNodeValue: OleVariant;
begin
  Result := GetText;
  if Result = '' then
    Result := Null;
end;

上述逻辑导致业务代码报错：

if Param.HasAttribute('Value') then
  Result := Param.Value;

问题在于：当存在值为空字符串的Value属性时，理应读取到空字符串，但实际NodeValue返回Null，赋值给WideString类型的Result时触发类型不匹配错误。

核心问题 #

• 这种行为能否在Delphi中配置？
• 这是否符合XML标准行为？

解答 #

1. Delphi中的配置可能性 #

从Delphi自带的XMLDoc.pas代码来看，GetNodeValue的逻辑是硬编码的：当属性值为空字符串时返回Null，没有提供可配置的开关来修改此行为。

要解决这个问题，只能手动修改自动生成的绑定类实现，将Get_Value方法中读取NodeValue的逻辑替换为读取Text属性（参考Get_Name的实现），修改后的代码如下：

function TXMLParameterType.Get_Value: WideString;
begin
  Result := AttributeNodes['Value'].Text;
end;

这样就能正确返回空字符串，避免类型不匹配错误。

2. XML标准符合性 #

根据XML规范，空字符串的属性值（即Value=""的写法）是完全合法的。Delphi将空属性值映射为Null的行为，属于其自身的实现选择，并非XML标准的强制要求。XML标准仅定义了属性的语法规则，并未规定空值在编程语言中必须映射为Null还是空字符串，这类映射逻辑属于绑定层的实现细节。

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