TDBEdit派生组件粘贴带点数值触发“非BCD值”错误的解决问询

问题根源 #

你遇到的错误是因为绑定的字段是BCD类型（如Currency），当输入/粘贴包含千分位逗号的数值（如1,000.00）时，TDBEdit在同步文本到字段时无法解析带千分位的字符串，导致抛出BCD格式错误。之前的两种处理方式要么没触达数据提交的核心环节，要么逻辑有漏洞且影响全局剪贴板，所以无法彻底解决问题。

有效解决方案 #

方案1：重写ValidateEditText事件（推荐） #

这个事件是TDBEdit将文本写入数据字段前的关键拦截点，在这里修正文本格式可以直接避免BCD解析错误：

procedure TDBEditValida.ValidateEditText(var Text: string);
var
  CleanText: string;
begin
  inherited;
  if Text <> '' then
  begin
    // 移除千分位逗号，保留小数点（适配1,000.00这类格式）
    CleanText := StringReplace(Text, ',', '', [rfReplaceAll]);
    try
      // 验证数值有效性，确保是合法的货币格式
      StrToCurr(CleanText);
      // 将处理后的文本提交给字段
      Text := CleanText;
    except
      // 处理无效输入，可根据需求调整提示或清空
      Text := '';
      ShowMessage('请输入有效的货币数值');
    end;
  end;
end;

注意：不要用Real类型做转换，会有精度损失，用StrToCurr或StrToBCD更适配Currency/BCD字段的精确性要求。

方案2：拦截粘贴消息，精准处理粘贴内容 #

如果需要直接控制粘贴行为，避免用户粘贴错误格式的内容，可以拦截WM_PASTE消息：

type
  TDBEditValida = class(TDBEdit)
  private
    procedure WMPaste(var Message: TWMPaste); message WM_PASTE;
  protected
    procedure ValidateEditText(var Text: string); override;
  end;

procedure TDBEditValida.WMPaste(var Message: TWMPaste);
var
  PasteText: string;
  CleanText: string;
begin
  PasteText := Clipboard.AsText;
  if PasteText <> '' then
  begin
    // 移除千分位逗号，保留小数点
    CleanText := StringReplace(PasteText, ',', '', [rfReplaceAll]);
    try
      // 验证后再粘贴到组件
      StrToCurr(CleanText);
      SelText := CleanText;
    except
      ShowMessage('粘贴的内容不是有效的货币数值');
    end;
  end;
end;

这种方式可以让用户粘贴后直接得到合法格式的文本，从输入源头避免错误。

补充说明 #

组件的显示格式#,##0.00不需要修改，TDBEdit会根据绑定字段的DisplayFormat自动格式化显示，我们只需要确保提交给字段的是不带千分位的纯数值字符串即可。

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