使用Delphi XE7 FireDAC数组DML向Firebird2.5插入字符串显示为??????

这个问题我之前在项目里也踩过坑，本质是数组DML模式下FireDAC没有自动适配字符串参数的字符集配置——毕竟单条插入时FireDAC会自动处理编码匹配，但批量插入时需要手动明确规则。下面给你几个针对性的解决方案：

1. 显式设置字符串参数的字符集和长度 #

数组DML模式下，FireDAC不会自动推断字符串参数的字符集和字段长度，必须手动指定。找到你配置nombre参数的代码，补充Charset和Size属性：

ADataSet.ParamByName('nombre').DataType := ftString;
ADataSet.ParamByName('nombre').Size := 255; // 改成你数据库字段的实际长度
ADataSet.ParamByName('nombre').Charset := 'UTF8'; // 匹配Firebird数据库的字符集（比如WIN1252、GBK等，根据你的库设置）

这里的Charset必须和Firebird数据库中对应字段的字符集完全一致，比如你的nombre字段是VARCHAR(255) CHARACTER SET UTF8，就设为UTF8；如果是西欧字符集就用WIN1252。

2. 确保连接组件的全局字符集配置正确 #

检查你的TFDConnection连接参数，确认已经指定了和数据库一致的字符集，这样所有参数都会继承这个设置，避免批量插入时出现编码不匹配：

// 在连接初始化时添加
FDConnection.Params.Add('CharacterSet=UTF8');

或者直接在连接字符串里指定：

DriverID=FB;Database=C:\YourDB.fdb;User_Name=sysdba;Password=masterkey;CharacterSet=UTF8

3. 改用AsWideStrings传递Unicode字符串 #

Delphi XE7是Unicode版本，AsStrings在某些场景下会做额外的编码转换，改用AsWideStrings直接传递Unicode字符串，减少转换错误的可能：

// 替换原来的AsStrings赋值逻辑
ADataSet.ParamByName('nombre').AsWideStrings[i] := ADetalles.Items[i].SNombre;

4. 验证数据库字段的字符集设置 #

最后确认Firebird数据库中nombre字段的字符集是否正确，可执行以下SQL查看：

SELECT RDB$FIELD_NAME, RDB$CHARACTER_SET_NAME 
FROM RDB$RELATION_FIELDS 
WHERE RDB$RELATION_NAME = '你的表名';

确保字段的字符集和你在FireDAC中设置的完全一致。

按照上面的步骤调整后，批量插入的字符串应该就能正常存储了。

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