字符串数值除法实现及StrToFloatDef始终返回0的问题排查与解决

问题原因 #

• TFormatSettings构造函数误用：你调用TFormatSettings.Create(DecimalSeparator)是错误的，这个构造函数的参数是区域LCID值（比如LOCALE_USER_DEFAULT），不是直接传入小数分隔符字符。这种错误调用创建的FormatSettings对象并没有正确设置你需要的DecimalSeparator，导致StrToFloatDef无法识别输入字符串中的小数分隔符，解析失败后返回默认值0。
• 输入处理逻辑缺陷：
  • 代码只处理了带点（.）的输入，完全没处理带逗号（,）的输入场景，当输入是逗号分隔的数值字符串时，即使默认设了DecimalSeparator为逗号，也因为FormatSettings对象错误无法解析。
  • 如果两个输入参数使用不同的分隔符（比如Z用.、N用,），代码会覆盖DecimalSeparator为.，导致N字符串无法被正确解析。

最优解决方案 #

正确的做法是手动初始化TFormatSettings对象，明确指定DecimalSeparator；同时优化输入处理逻辑，确保每个输入字符串都能被正确识别分隔符并转换。

修正后的代码 #

function divideStrings(Z, N: string): string;
var
  dZ, dN, dResult: Double;
  fsZ, fsN, fsResult: TFormatSettings;
begin
  // 初始化每个输入对应的FormatSettings
  fsZ := TFormatSettings.Create;
  fsN := TFormatSettings.Create;
  fsResult := TFormatSettings.Create;

  // 处理Z的分隔符
  if Pos('.', Z) > 0 then
    fsZ.DecimalSeparator := '.'
  else if Pos(',', Z) > 0 then
    fsZ.DecimalSeparator := ','
  else
    fsZ.DecimalSeparator := DefaultFormatSettings.DecimalSeparator; // 无分隔符时用系统默认

  // 处理N的分隔符
  if Pos('.', N) > 0 then
    fsN.DecimalSeparator := '.'
  else if Pos(',', N) > 0 then
    fsN.DecimalSeparator := ','
  else
    fsN.DecimalSeparator := DefaultFormatSettings.DecimalSeparator;

  // 转换字符串为数值
  dZ := StrToFloatDef(Z, 0, fsZ);
  dN := StrToFloatDef(N, 0, fsN);

  // 执行除法（注意除数为0的情况，这里可以根据需求改为抛出异常）
  if dN <> 0 then
    dResult := dZ / dN
  else
    dResult := 0;

  // 结果使用和输入Z相同的分隔符，或者可以改为指定固定分隔符
  fsResult.DecimalSeparator := fsZ.DecimalSeparator;
  Result := FloatToStr(dResult, fsResult);
end;

关键改进点 #

• 正确初始化TFormatSettings：先调用无参构造TFormatSettings.Create（基于系统默认区域设置），再手动修改DecimalSeparator为需要的值，确保解析规则正确。
• 独立处理每个输入的分隔符：分别为Z和N创建对应的FormatSettings，避免两者分隔符不同时的解析冲突。
• 兼容无小数部分的输入：当输入是整数字符串（无分隔符）时，使用系统默认分隔符处理，增强兼容性。
• 结果分隔符可控：可以选择和其中一个输入一致的分隔符，或者固定为某一种（比如统一返回.分隔的结果）。

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