【delphi】TStringlist.sort 的CaseSensitive 是true或false，都是大小写不敏感解决方法

最新推荐文章于 2024-02-01 09:30:36 发布

海纳老吴

最新推荐文章于 2024-02-01 09:30:36 发布

阅读量689

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/sensor_WU/article/details/118579570

版权

TStringList CaseSensitive Sorted Locale 排序算法

关键词由CSDN通过智能技术生成

Delphi 专栏收录该内容

168 篇文章 92 订阅

订阅专栏

通过查看TStringList源代码，正确如下使用就可以区分大小写的，delphi的帮助文件说的不是很清楚。主要在一些需要签名的时候排序有用！

var
  TL : TStringList;


  //具体使用
  TL.Sorted := False;
  TL.CaseSensitive := True;    //此句设置排序大小写敏感
  TL.UseLocale     := False;   //切记必须有这一句，否则排序会出现 大写字母不在小写前面的问题
  
  //****** TL 的相关操作 ******

  TL.Sort;

delphi 相关排序源代码如下：

function TStringList.CompareStrings(const S1, S2: string): Integer;
begin
  if UseLocale then
    if CaseSensitive then
      Result := AnsiCompareStr(S1, S2)
    else
      Result := AnsiCompareText(S1, S2)
  else
    if CaseSensitive then
      Result := CompareStr(S1, S2)          //我们需要执行这个排序 ...
    else
      Result := CompareText(S1, S2);
end;