TStringlist.sort 的CaseSensitive 是true或false，都是大小写不敏感。-CSDN论坛

TStringlist.sort 的CaseSensitive 是true或false，都是大小写不敏感。

Delphi > VCL组件开发及应用

收藏回复

[问题点数：20分，结帖人zck_yy]

⋅如何取得如下分组求最大值的记录 ⋅如何把：字符串：1'#9'2，含有的#9即tab键的值替换为逗号 ⋅case when end 的字段，怎么在DBGridEH变成灰色背景 更多帖子 关注私信空间博客 披着虎皮的石头 等级 本版专家分：148 结帖率 100%



procedure TForm1.Button1Click(Sender: TObject);

var St :TStringList;

begin

   St :=TStringList.Create;

  {Ascii编码：

   c 99

   C 67

   W 87

   AWSAccessKeyId 和Action，

   大小写不敏感，是Action前面，

   大小写敏感，  是AWSAccessKeyId前面。}

   

   St.Add('AWSAccessKeyId');

   St.Add('Action');



   St.CaseSensitive :=True; //true或false，比较结果，都是大小写不敏感，是否delphi的bug。

   //St.Sorted :=false;

   St.Sort;





   if 'AWSAccessKeyId' >'Action' then

        ShowMessage('AWSAccessKeyId 大')

   else ShowMessage('Action 大');





   ShowMessage(St.Strings[0] +' ' +St.Strings[1]);



   //显示为Action AWSAccessKeyId，说明大小写不敏感的。

   //而我要的是大小写敏感的。

end;

2013-07-30 16:28:37

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅此用户还没有发表过任何帖子 关注私信空间博客 sololie 等级 本版专家分：25739 勋章 红花 2014年3月 Delphi大版内专家分月排行榜第一 2014年2月 Delphi大版内专家分月排行榜第一 2014年1月 Delphi大版内专家分月排行榜第一 2013年12月 Delphi大版内专家分月排行榜第一 2013年11月 Delphi大版内专家分月排行榜第一 2013年10月 Delphi大版内专家分月排行榜第一 2013年9月 Delphi大版内专家分月排行榜第一 2013年8月 Delphi大版内专家分月排行榜第一 2013年7月 Delphi大版内专家分月排行榜第一 2013年6月 Delphi大版内专家分月排行榜第一 2013年5月 Delphi大版内专家分月排行榜第一 黄花 2014年3月 C++ Builder大版内专家分月排行榜第二 2014年1月 C++ Builder大版内专家分月排行榜第二 2013年12月 C++ Builder大版内专家分月排行榜第二 2013年8月 C++ Builder大版内专家分月排行榜第二 2013年7月 C++ Builder大版内专家分月排行榜第二 2013年4月 Delphi大版内专家分月排行榜第二 蓝花 2013年11月 C++ Builder大版内专家分月排行榜第三 2013年9月 C++ Builder大版内专家分月排行榜第三 2013年6月 C++ Builder大版内专家分月排行榜第三 2013年3月 Delphi大版内专家分月排行榜第三: tstringlist.sort 是个虚函数，可以自己重写实现自己想要的排序方式，具体看tstringlist的源码

2013-07-30 16:41:45

点赞只看TA 引用举报 #1得分 0

⋅如何取得如下分组求最大值的记录 ⋅如何把：字符串：1'#9'2，含有的#9即tab键的值替换为逗号 ⋅case when end 的字段，怎么在DBGridEH变成灰色背景 更多帖子 关注私信空间博客 披着虎皮的石头 等级 本版专家分：148:   最近用delphi开发和各个网站的api接口。

  越来越明白delphi工具，是一个核心类库设计较好，
  语言自带外围类功能较弱，种类不是很全的。

  用C#，是核心设计好，外围类功能强，种类全面。



2013-07-30 16:47:42

点赞只看TA 引用举报 #2得分 0

⋅为什么一些软件是控制台程序 ⋅Delphi XE register 调用约定的参数执行顺序 ⋅Delphi编程技巧总汇--------[持续更新] 更多帖子 关注私信空间博客 s11ss 等级 本版专家分：15859 勋章 红花 2014年10月 Delphi大版内专家分月排行榜第一 2012年12月 Delphi大版内专家分月排行榜第一 黄花 2012年7月 Delphi大版内专家分月排行榜第二 蓝花 2013年8月 Delphi大版内专家分月排行榜第三 2012年8月 Delphi大版内专家分月排行榜第三 2012年6月 Delphi大版内专家分月排行榜第三

看Sort的帮助：
Sort uses AnsiCompareStr to sort the strings when CaseSensitive is true and AnsiCompareText when CaseSensitive is false.

AnsiCompareStr的帮助：
Most locales consider lowercase characters to be less than the corresponding uppercase characters. This is in contrast to ASCII order, in which lowercase characters are greater than uppercase characters. Thus, setting S1 to 'a' and S2 to 'A' causees AnsiCompareStr to return a value less than zero, while CompareStr, with the same arguments, returns a value greater than zero.

解决办法是自己从TStringList派生一个类，并覆盖CompareStrings方法（把AnsiCompareStr换成CompareString）：

type

  TMyStringList = class(TStringList)

  protected

    function CompareStrings(const S1, S2: string): Integer; override;

  end;



{ TMyStringList }



function TMyStringList.CompareStrings(const S1, S2: string): Integer;

begin

  if CaseSensitive then

    Result := CompareStr(S1, S2)

  else

    Result := CompareText(S1, S2);

end;



procedure TForm1.Button1Click(Sender: TObject);

var St :TStringList;

begin

   St :=TMyStringList.Create;





   St.Add('AWSAccessKeyId');

   St.Add('Action');

   st.CaseSensitive := True;

   St.Sort;



    showmessage(st.Text);

    st.free;

end;

2013-07-30 16:59:41

点赞只看TA 引用举报 #3得分 20

⋅此用户还没有发表过任何帖子 关注私信空间博客 ksjxqy 等级 本版专家分：233: 字符串比较依赖于windows api：CompareStringA/CompareStringW。这个API的所有逻辑我测试了很多次，没有测试出来。但是可以肯定的是，大写字母是大于小写字母的。

2013-07-30 17:39:01

点赞只看TA 引用举报 #4得分 0

⋅"孩子三年级的时候就好了" ⋅万一火了呢？第二季 ⋅万一火了呢？ 更多帖子 关注私信空间博客 林石公 等级 本版专家分：5310: Delphi7在这一点上有点妖,如果用了CaseSensitive,它转而调用了AnsiCompareStr
function TStringList.CompareStrings(const S1, S2: string): Integer;
begin
  if CaseSensitive then
    Result := AnsiCompareStr(S1, S2)
  else
    Result := AnsiCompareText(S1, S2);
end;
如果你看一下AnsiCompareStr的帮助
Note: Most locales consider lowercase characters to be less than the corresponding uppercase characters.  This is in contrast to ASCII order, in which lowercase characters are greater than uppercase characters.  Thus, setting S1 to 'a' and S2 to 'A' causees AnsiCompareStr to return a value less than zero, while CompareStr, with the same arguments, returns a value greater than zero.
它说了:因为很多淫认为大写的就是大,小写的就是小,拉个ascii与一般淫的常识不一致,所以如果你要求排序时区分大小写的话,俺就把小写的a淫为比大写的A小,所以blabla.....

2013-07-30 17:45:25

点赞只看TA 引用举报 #5得分 0

⋅如何取得如下分组求最大值的记录 ⋅如何把：字符串：1'#9'2，含有的#9即tab键的值替换为逗号 ⋅case when end 的字段，怎么在DBGridEH变成灰色背景 更多帖子 关注私信空间博客 披着虎皮的石头 等级 本版专家分：148: 引用 3 楼 s11ss 的回复:
解决办法是自己从TStringList派生一个类，并覆盖CompareStrings方法（把AnsiCompareStr换成
[/code]

一语中的，就是按照这么做，区分大小写了。

2013-07-30 17:56:47

点赞只看TA 引用举报 #6得分 0

收起

收藏回复

披着虎皮的石头

等级：

关注私信 TA的帖子

TStringList 常用方法与属性: delphi 交流QQ: 2609715119TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); ....

TStringList的Find（慎用），IndexOf和Sort: 别人的代码，导致了一个偶现的bug, 调试了一天，看了下文，才恍然大悟。无证程序员们坑人呢，我躺着也中枪了 ...前几日工作很累，写代码时也有点心猿意马了，看到TStringList.Find便毫不犹豫地使用它在

TStringList：字符串列表: |字号大中小订阅声明：type TStringList; 描述：TStringList是一个公用的类类型，它对于许多列表处理非常有用。在字符串列表中的项目可以被插入、删除和排序。列表的建立有三种方式：1、一个字符串接一个字符串...

Delphi中 TStringList 的详细用法: Delphi中 TStringList 的详细用法原创 2016年12月21日 14:28:59

TStringList 常用操作: TStringList 常用操作 //TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); L...

Delphi TStringList的用法: Delphi TStringList的用法 ** TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List....

tstringlist详细用法: TStringList 类是在Delphi使用最厂的一个对像，我们这里一起来看看 TStringList 的详细用法. 先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ...

Delphi : TStringList的Find，IndexOf和Sort: 关键：Find要事先Sort排序，Indexof不用排序。 TStringList内部查找相关的数据。待调试代码时才知道痛苦，浪费无数时间后，只得一步步跟踪，才发现Find方法返回的Index总是错误的，当时一阵郁闷，随手...

（转）DELPI TStringList的用法: TStrings是一个抽象类，在实际开发中，是除了...TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Stri...

（转载）Delphi TStringList的用法: （转载）Delphi TStringList的用法 Delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStr

TStringList的Find，IndexOf和Sort: procedure TForm1.Button1Click(Sender: TObject);... MyList: TStringList; begin MyList := TStringList.Create; try MyList.Add('11'); MyList.Add('1'); //经过测试可以知道,IndexOf是查询的是M...

Delphi TStringList的使用: TStringList实现继承自TStrings的抽象属性和方法，并且引进新的属性，事件和方法来实现下列功能： 1.排序列表上的字符串 2.阻止在已排好序的列表上出现重复的字符串 3.对列表上的内容的变化做出回应 4.控制字符...

Delphi的TStringList类使用详解: TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1);

TStringList的用法: TStrings是一个抽象类，在实际开发中，是除了基本...TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('St...

C#入门必看实力程序100个: C#入门必看含有100个例字,每个例子都是针对C#的学习关键知识点设计的,是学习C#必须知道的一些程序例子,分享给大家，需要的可以下载

Java面试题大全（备战2021）: 这本面试手册包含了Java基础、Java集合、JVM、Spring、Spring Boot、Spring Cloud、Mysql、Redis、RabbitMQ、Dubbo、Netty、分布式及架构设计等方面的技术点。内容难度参差，满足初中高级Java工程师的面试需求。

Origin 2018 安装资源+安装教程: 该TXT文档包含以下内容：Origin 2018 安装包的百度云链接（永久）以及 Origin 2018 的安装教程。

七夕情人节表白HTML源码(两款): 七夕节、情人节表白用的HTML源码(两款)

jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程: jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程，这个很好用，稳定出单！

SecureCRT中文破解版: SecureCRT中文破解版欢迎大家下载，非最新版本！！！

Xshell-7.0个人免费版.zip: Xshell-7.0个人免费版，供个人免费使用。 Xshell 是一个强大的安全终端模拟软件，它支持SSH1, SSH2, 以及Microsoft Windows 平台的TELNET 协议。Xshell 通过互联网到远程主机的安全连接以及它创新性的设计和特色帮助用户在复杂的网络环境中享受他们的工作。Xshell可以在Windows界面下用来访问远端不同系统下的服务器，从而比较好的达到远程控制终端的目的。除此之外，其还有丰富的外观配色方案以及样式选择。

laravel5.6框架基础入门精讲: 这个视频主要讲了laravel5.6版本路由控制器请求响应模型视图。。。太多了，详细的看目录就行了，基本上框架开发常用的功能都讲了。应该算是目前比较详细的框架教程了学会基础的laravel框架的使用

C Primer Plus 第6版中文版.pdf带书签非扫描版良心资源: C+Primer+Plus（第6版）中文版,不是扫描版,而是文字电子书，非常的高清，带目录

Office2016专业增强版中文免费正式版(附安装教程)64位: Microsoft office 2016专业增强版是一款由官方发布的Microsoft office办公软件，而且免费开放给所有Windows用户免费使用，其中Excel、word、PPT都非常智能化，界面最新加入暗黑主题，并且按钮的设计风格开始向Windows10靠拢。本平台提供Office 2016专业增强版，需要的朋友可下载试试！ Office 2016 专业增强版安装教程 1. 下载

CCNA之TCP/IP协议栈精讲: 学完本班级课程，OSI模型和TCP/IP协议栈掌握TCP/IP协议栈中的Ethernet、ARP、IP、ICMP、UDP、DHCP、TCP、Telnet

新年快乐! python实现绚烂的烟花绽放效果: 主要为大家详细介绍了python利用可视化技巧实现烟花绽放效果，具有一定的参考价值，感兴趣的小伙伴们可以参考一下

德勤举报PPT.pdf: 德勤举报PPT.pdf

jd_seckill京东抢茅台插件: 这个很好用，稳定出单！

STM32全系列 Keil MDK pack包（当前最新离线包）: STM32全系列 Keil MDK pack离线包注：由于上传大小限制，除了F0和F1的包，其他的提供链接通过百度云下载。包括以下包，当前最新版本（20200115） Keil.STM32F0xx_DFP.2.0.0.pack Keil.STM32F1xx_DFP.2.3.0.pack Keil.STM32F2xx_DFP.2.9.0.pack Keil.STM32F3xx_DFP.2.1.0.pack Keil.STM32F4xx_DFP.2.14.0.pack Keil.STM32F7xx_DFP.2.12.0.pack Keil.STM32H7xx_DFP.2.3.1.pack Keil.STM32G0xx_DFP.1.2.0.pack Keil.STM32G4xx_DFP.1.1.0.pack Keil.STM32L0xx_DFP.2.0.1.pack Keil.STM32L1xx_DFP.1.2.0.pack Keil.STM32L4xx_DFP.2.3.0.pack Keil.STM32L5xx_DFP.1.1.0.pack Keil.STM32MP1xx_DFP.1.1.0.pack Keil.STM32W1xx_DFP.1.0.0.pack Keil.STM32WBxx_DFP.1.0.0.pack

2021CFA一级Notes1-5（完）.zip: 2021CFA一级Notes1-5，有5本pdf。

相关热词 c#dll vb 调用 c# outlook c#修改表数据 c# 子窗体值返给父窗体 c# label 格式化 c# 程序如何控制摄像头 c# 获取运行时间 c#知识点结构图微软c# c#解析owl