Delphi 字符串变量比较是否使用loInvariantLocale？如何在本地启用loUserLocale？

xwmevbvl 于 12个月前发布在其他

关注(0)|答案(1)|浏览(107)

我的问题来自DevExpress TcxGrid默认比较（用于数据排序），它归结为代码（在cxVariants.pas中实现）：

if VarIsEmpty(V1) then
    if VarIsEmpty(V2) then
      Result := 0
    else
      Result := -1
  else
    if VarIsEmpty(V2) then
      Result := 1
    else
      if V1 = V2 then
        Result := 0
      else
        if V1 < V2 then
          Result := -1
        else
          Result := 1;

字符串
我的测试确保V1 < V2可以像CompareStr(V1, V2, loInvariantLocale)一样工作，但通常人们希望V1 < V2可以像CompareStr(V1, V2, loUserLocale)一样工作。
这也反映在cxGrid的排序结果中：通常东欧语言期望变音字符紧跟在其原始字符之后，但loInvariantLocal将所有变音字符放在所有非变音字符的末尾。人们期望顺序为aā .. zž，但cxGrid的排序类似于a .. z, ā .. ž。
所以：是否可以要求一些代码片段使用loUserLocale进行变量比较？
当然，我将只覆盖cxGrid.cxGridDBTableView.Controller.OnCompare()，但我有点不安的一般情况下，我是否可以或我不能影响变种dm1x。