如何在FireDAC FDBatchMove中输出TSQLTimeStamp字段的毫秒值？

问题分析 #

核心问题是使用TFDBatchMove结合TFDBatchMoveTextWriter导出含TSQLTimeStamp字段的数据表到CSV时，无论调整组件设置还是简单处理OnWriteValue事件，输出始终丢失毫秒值。

你之前的OnWriteValue处理逻辑存在缺陷：直接将AValue转换为TDateTime再格式化，可能因Variant类型转换丢失毫秒精度，或是TFDBatchMove传递的AValue本身已截断毫秒信息。

解决方案 #

1. 正确处理OnWriteValue事件 #

直接从数据源字段获取原始TSQLTimeStamp值再格式化，确保毫秒信息不丢失。修改事件代码如下：

procedure TYourForm.FDBatchMove1WriteValue(Sender: TObject; var AValue: Variant;
  var AText: string; var AHandled: Boolean);
var
  LSQLTimeStamp: TSQLTimeStamp;
  LField: TField;
begin
  if Sender is TFDBatchMoveDataSetReader then
  begin
    LField := TFDBatchMoveDataSetReader(Sender).DataSet.Fields[FieldIndex];
    if LField is TSQLTimeStampField then
    begin
      LSQLTimeStamp := TSQLTimeStampField(LField).AsSQLTimeStamp;
      AText := FormatDateTime('mm/dd/yyyy hh:mm:ss.zzz', SQLTimeStampToDateTime(LSQLTimeStamp));
      AHandled := True;
    end;
  end;
end;

2. 调整TFDBatchMoveTextWriter格式设置 #

确保文本写入器的格式支持毫秒输出：

• 选中FDBatchMoveTextWriter1，在Object Inspector展开DataDef -> FormatSettings
• 将LongTimeFormat设置为hh:mm:ss.zzz（与字段DisplayFormat保持一致）
• 可同步将ShortTimeFormat也设为hh:mm:ss.zzz，避免其他时间字段丢失毫秒

3. 确认字段配置有效性 #

确保TSQLTimeStampField的DisplayFormat已设置为mm/dd/yyyy hh:mm:ss.zzz，虽TFDBatchMove不直接依赖该设置，但统一配置可避免潜在问题。

效果验证 #

修改后重新导出CSV，TSQLTimeStamp字段将输出完整毫秒信息，示例：

"208GVGqETJAY2:[4",2,"45745",1,2/13/2008 5:02:08.123 PM,,,"","","",,F,F,0,F,F,F,F,F,,,,"","","","",

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