Delphi 10.2.2调用带@etikettnr参数的存储过程时类型转换异常求助

我来帮你排查这个类型转换异常的问题，这类情况通常是参数类型映射或者赋值细节没处理到位，咱们一步步来解决：

1. 确保存储过程参数的DataType正确映射 #

SQL Server的nvarchar(50)是Unicode字符串类型，在Delphi 10.2.2中，虽然String本质是UnicodeString，但如果FDQuery的参数默认DataType没有设置为ftWideString，就容易出现类型不匹配。你需要手动指定参数的类型和长度：

// 先获取参数对象
var
  Param: TFDParam;
begin
  Param := DM1.spHISTJUMBO.Parameters.ParamByName('@etikettnr');
  Param.DataType := ftWideString; // 对应SQL的nvarchar类型
  Param.Size := 50; // 和存储过程定义的长度一致
end;

2. 改用更明确的赋值方式 #

ParamValues虽然方便，但有时候会因为隐式转换导致问题，建议直接通过ParamByName的AsString属性赋值，这样类型转换更可控：

DM1.spHISTJUMBO.Parameters.ParamByName('@etikettnr').AsString := DM1.HISTJUMBOQueryetikettnr.AsString;

如果源字段HISTJUMBOQueryetikettnr本身不是字符串类型（比如是数字、日期等），一定要先做显式转换，确保生成的字符串符合存储过程的要求，且长度不超过50位。

3. 检查数据库连接的Unicode设置 #

确保你的FDConnection已经开启了Unicode支持，避免字符编码不匹配引发的类型错误。可以在连接参数里添加：

// 在FDConnection的Params中设置
DM1.FDConnection1.Params.Add('UseUnicode=True');
DM1.FDConnection1.Params.Add('CharacterSet=utf8');

这个设置会让Delphi和SQL Server之间以Unicode格式传输字符串，完美适配nvarchar类型。

4. 排查源字段的类型兼容性 #

如果HISTJUMBOQueryetikettnr是一个非字符串类型的字段（比如Integer、DateTime），直接调用.AsString可能会产生不符合预期的字符串，甚至触发转换异常。这种情况下，你需要先把源字段的值显式转换为合法的字符串：

// 示例：如果源字段是Integer类型
DM1.spHISTJUMBO.Parameters.ParamByName('@etikettnr').AsString := IntToStr(DM1.HISTJUMBOQueryetikettnr.AsInteger);

按以上步骤调整后，应该就能解决类型转换的异常了。

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