如何将动态数组赋值给Variant？赋值时触发无效类型转换错误

问题原因 #

你遇到的错误核心在于Delphi的Variant类型不支持直接与自定义动态数组（TConfigGroup = array of TConfigItem）进行类型转换。Variant仅原生支持基础类型、自动化兼容类型（如OLE数组、接口），自定义动态数组不在其兼容范围内，直接赋值会触发类型转换异常。

解决方法 #

针对你的代码，提供两种实用修正方案：

方案1：使用TValue作为中间转换层（Delphi XE及以上版本） #

利用System.Rtti.TValue处理自定义动态数组与Variant的双向转换，它支持绝大多数Delphi类型的封装与还原，代码简洁易维护。

修改步骤：

1. 在implementation的uses列表中添加System.Rtti；
2. 改写CreateRoot过程：

procedure TConfigDatabase.CreateRoot;
var GItems: TConfigGroup;
begin
  SetLength(GItems, 0);
  Root.ID:= gidRoot;
  Root.Desc:= '*ROOT*';
  // 通过TValue将动态数组转为Variant
  Root.Data := TValue.From<TConfigGroup>(GItems).AsVariant;
end;

3. 改写SetGroup函数：

function TConfigDatabase.SetGroup(Parent: PConfigItem; TheID: Cardinal; Desc: String = ''): PConfigItem;
var L: Integer;
    PItems, GItems: TConfigGroup;
begin
  // 从Variant还原动态数组
  PItems := TValue.FromVariant(Parent.Data).AsType<TConfigGroup>;
  L:= Length(PItems);
  SetLength(PItems, L+1);
  PItems[L].ID:= TheID;
  PItems[L].Desc:= Desc;
  SetLength(GItems, 0);
  // 子数组同样通过TValue转换
  PItems[L].Data := TValue.From<TConfigGroup>(GItems).AsVariant;
  // 转换回Variant存入父节点
  Parent.Data := TValue.From<TConfigGroup>(PItems).AsVariant;
  Result:= @PItems[L];
end;

方案2：改用Variant数组替代自定义动态数组 #

如果使用旧版本Delphi（不支持TValue），可以直接用Variant数组存储配置项，规避自定义动态数组的转换限制：

修改步骤：

1. 替换TConfigGroup的类型定义：

// 原定义：TConfigGroup = array of TConfigItem;
// 修改为Variant数组
type
  TConfigGroup = Variant;

2. 改写CreateRoot过程：

procedure TConfigDatabase.CreateRoot;
begin
  Root.ID:= gidRoot;
  Root.Desc:= '*ROOT*';
  // 创建空的Variant数组，元素类型为Variant（兼容TConfigItem字段）
  Root.Data := VarArrayCreate([0, -1], varVariant);
end;

3. 改写SetGroup函数：

function TConfigDatabase.SetGroup(Parent: PConfigItem; TheID: Cardinal; Desc: String = ''): PConfigItem;
var 
  L: Integer;
  PItems: TConfigGroup;
  NewItem: TConfigItem;
begin
  PItems := Parent.Data;
  // 获取数组当前长度
  L := VarArrayHighBound(PItems, 1) - VarArrayLowBound(PItems, 1) + 1;
  // 扩容数组
  VarArrayRedim(PItems, L);
  // 初始化新配置项
  NewItem.ID := TheID;
  NewItem.Desc := Desc;
  NewItem.Data := VarArrayCreate([0, -1], varVariant);
  // 将记录转为Variant存入数组
  PItems[L] := TValue.From<TConfigItem>(NewItem).AsVariant;
  Parent.Data := PItems;
  // 还原记录并返回指针
  NewItem := TValue.FromVariant(PItems[L]).AsType<TConfigItem>;
  Result := @NewItem;
end;

注意事项 #

• 方案1依赖Delphi XE及以上版本的System.Rtti单元，是现代Delphi的优先选择；
• 方案2兼容旧版本Delphi，但需要手动处理Variant数组的扩容与元素转换；
• 自定义记录TConfigItem的字段均为Variant兼容类型（Cardinal、String、Variant），因此可通过TValue顺利转换。

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