如何调试FireDAC的Array DML查询？解决数据插入报错问题

核心问题 #

使用Array DML批量导入CSV数据到Interbase数据库时，频繁触发arithmetic, numeric overflow or string truncation错误，疑似循环索引越界导致；同时由于FDQuery无法在调试阶段查看实际推送的查询语句，问题定位难度大。

代码问题分析 #

1. Array索引与数组大小不匹配 #

代码中FDQuery1.Params.ArraySize设为CSV总行数（包含表头），但循环从第2行开始填充参数，且直接用行号m作为参数数组索引，导致参数数组的0号位置未赋值，同时实际数据行数与数组大小不匹配，引发索引越界。

2. 简易CSV分割逻辑缺陷 #

使用逗号直接分割行内容，若字段包含引号包裹的逗号（如"test,abc"），会导致分割后的字段数量不足10个，后续访问CurrentLine[9]会触发索引越界，进而引发数据类型转换错误。

3. 类型转换不严谨 #

• 日期字段使用Values[m]变体类型赋值，无法保证与Interbase日期类型的兼容性，易引发隐式转换错误。
• 布尔字段直接调用ToBoolean，若CSV中布尔值格式不标准（如"YES"/"NO"），会触发转换异常，导致数值溢出。

4. 事务处理冗余 #

异常分支中执行RollbackRetaining后又调用Commit，属于无效操作，可能干扰事务状态。

修复方案 #

1. 修正Array索引与数组大小 #

将参数数组大小设为实际数据行数（总行数-1），用0开始的索引对应参数数组：

iArraySize := Strings.Count - 1; // 去掉表头，取实际数据行数
FDQuery1.Params.ArraySize := iArraySize;

var k: Integer;
for m := 1 to Strings.Count - 1 do
begin
  k := m - 1; // 参数数组从0开始计数
  CurrentLine.Clear;
  SplitCSVLine(Strings[m], CurrentLine);
  
  // 后续参数赋值统一用k作为索引
  FDQuery1.Params[0].AsIntegers[k] := CurrentLine[0].ToInteger;
  FDQuery1.Params[1].AsStrings[k] := CurrentLine[1];
  // ... 其他参数赋值 ...
end;

2. 替换鲁棒的CSV解析逻辑 #

改用支持引号包裹字段的分割方法，避免误分割带逗号的字段：

procedure SplitCSVLine(const Str: string; ListOfStrings: TStrings);
begin
  ListOfStrings.Clear;
  ListOfStrings.Delimiter := ',';
  ListOfStrings.StrictDelimiter := False;
  ListOfStrings.QuoteChar := '"';
  ListOfStrings.DelimitedText := Str;
end;

3. 严格校验与类型转换 #

• 提前校验字段数量，避免索引越界：

if CurrentLine.Count <> 10 then
begin
  raise Exception.CreateFmt('第%d行字段数量错误：预期10个，实际%d个', [m+1, CurrentLine.Count]);
end;

• 显式转换日期与布尔字段：

// 日期字段转换
FDQuery1.Params[8].AsDateTime[k] := StrToDateTime(CurrentLine[8]);
FDQuery1.Params[9].AsDateTime[k] := StrToDateTime(CurrentLine[9]);

// 布尔字段容错转换
var BoolStr: string;
BoolStr := UpperCase(Trim(CurrentLine[3]));
FDQuery1.Params[3].AsBooleans[k] := (BoolStr = 'TRUE') or (BoolStr = '1');

BoolStr := UpperCase(Trim(CurrentLine[7]));
FDQuery1.Params[7].AsBooleans[k] := (BoolStr = 'TRUE') or (BoolStr = '1');

4. 添加调试日志定位问题 #

通过日志输出每一行的参数值，快速定位错误行：

var LogStr: string;
LogStr := Format('第%d行参数：%s, %s, %s, %s, %s, %s, %s, %s, %s, %s',
  [m+1,
   CurrentLine[0], CurrentLine[1], CurrentLine[2], CurrentLine[3],
   CurrentLine[4], CurrentLine[5], CurrentLine[6], CurrentLine[7],
   CurrentLine[8], CurrentLine[9]]);
OutputDebugString(PChar(LogStr)); // 输出到调试器或写入日志文件

5. 优化事务处理 #

移除异常分支中冗余的Commit操作：

except
  on E : Exception do
  begin
    ShowMessage(E.Message);
    FDConnection1.RollbackRetaining;
    CurrentLine.Free;
    Strings.Free;
  end;
end;
// 移除外层多余的Commit，CommitRetaining已完成提交

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