Delphi中TStringList Indexof如何实现区分大小写,通配符模糊匹配及字符串比较区分大小写测试

Dear 丶 2023-10-04 19:57 26阅读 0赞

大家都知道Delphi中一直以来都是不区分大小写的。但是如果有一天，你用TStringlist维护了一个id列表什么的。并且要实现区分大小写及模糊查找定位。请问要如何实现？

比如：WH445306 和Wh445306,wh445306.... 在默认情况下,TStringList.indexof都认为他们是一样的。 如何区分？请看下面的测试代码

program Unit1;
    
    {$APPTYPE CONSOLE}
    
    uses
      SysUtils,
      Classes,IniFiles;
    
    
    type
      TStruct=packed record
        arr: array[0..50] of Char;
        str: string[50];
      end;
    
      var
        arr: array[0..50] of Char;
        str: string[50];
        s:string;
        //sl:TStringList;
        sl:THashedStringList;
        index:Integer;
        s1,s2:string;
        st:TStruct;
    
    begin
    
      begin
        s:='Hello';
        WriteLn(Format('arr长度：%d, sizeof arr: %d str长度:%d,sizeof str:%d',[Length(arr),SizeOf(arr),Length(str),SizeOf(str)]));
        StrPCopy(arr, s);
        str:=s;
        WriteLn(Format('arr长度：%d, sizeof arr: %d str长度:%d,sizeof str:%d',[Length(arr),SizeOf(arr),Length(str),SizeOf(str)]));
        WriteLn(arr);
    
        WriteLn(Format('sizeof st: %d',[SizeOf(st)]));
        StrPCopy(st.arr, s);
        st.str:=s;
    
        WriteLn(Format('sizeof st: %d',[SizeOf(st)]));
    
    
        sl:=THashedStringList.Create;
        sl.CaseSensitive:=True;   //标记是否区分大小写
        sl.Add('WH445306');
        index:=sl.IndexOf('wh445306');
        if index<>-1   then
          sl.Add('IndexOf不区分大小写')
        else
          sl.Add('IndexOf区分大小写');
        WriteLn(sl.Text);
        s1:='WH445306';
        s2:='wh445306';
        if s1=s2 then
          WriteLn('字符比较不区分大小写')
        else
          WriteLn('字符比较区分大小写');
        sl.Free;
        Readln;  //等待键盘输入
      end;
    
    end.

测试结果：

![4b3f35f83639441bb9a723b4e2fc8059.png][]

原来TStringList自带了一个控制开关。CaseSensitive //标记是否区分大小写，网上没搜索到相关的资料。摸索了半天。特此记录一下备忘。同时我们也可以发现默认字符串直接比较是区分大小写的。这样用于密码验证是没有问题的。因为本身Ord('a')<>Ord('A')

CaseSensitive用来标记是否大小写敏感，AnsiCompareStr是大小写敏感的函数,AnsiCompareText则反之。另外在Help文档中还特地说明了两个函数进行判断时，小写字符是小于大写字符的，比如'a'<'A'。

而在RSA,AES,MD5,DES BASE64等加密算法中更是严格区分大小写。所以。我们应该养成一个好的代码书写习惯很重要。

sl.CaseSensitive:=True;   //标记是否区分大小写

**另外记录一下TStringList.IndexOf：indexof中的通配符要如何实现?**

如果要匹配字符串的某些部分而没有任何花哨的通配符（如在对另一个答案的注释中所示），则可以使用以下简单函数：

function FindMatchStr(Strings: TStrings; const SubStr: string): Integer;
    begin    
      for Result := 0 to Strings.Count-1 do
        if ContainsStr(Strings[Result], SubStr) then
          exit;
      Result := -1;
    end;

如果要区分大小写的匹配，则可以使用以下命令：

function FindMatchText(Strings: TStrings; const SubStr: string): Integer;
    begin    
      for Result := 0 to Strings.Count-1 do
        if ContainsText(Strings[Result], SubStr) then
          exit;
      Result := -1;
    end;

也就是使用：

ContainsStr 和 ContainsText
    记得Uses  StrUtils;

[4b3f35f83639441bb9a723b4e2fc8059.png]: https://img-blog.csdnimg.cn/4b3f35f83639441bb9a723b4e2fc8059.png