如何在Windows资源管理器中获取Delphi中的排序顺序？

Question

综述：

1. 我的术语 寻找似乎是“自然的 排序”。

2. 对于操作系统中的行为：

   • 对于Windows（版本＆gt; = XP），Windows资源管理器使用自然 排序
   • 对于Linux终端：使用“ls -v”而不是普通的“ls”来获得自然 排序

3. 对于Delphi中的编程，使用StrCmpLogicalW Windows API进行自然排序。

4. 用于Delphi中的编程＆amp; Kylix＆amp; Lazarus，使用手工制作的功能 自然排序：
   • （1）Delphi包装，用于Martin Pool的自然顺序字符串比较 http://irsoft.de/web/strnatcmp-and-natsort-for-delphi
   • （2）来自davekeolle网站的其他语言的字母排序算法代码 http://www.davekoelle.com/alphanum.html
   • （3）其他知识页：
     http://www.codinghorror.com/blog/2007/12/sorting-for-humans-natural-sort-order.html
     http://objectmix.com/delphi/722211-natural-sorting-optimizing-working-solution.html
     http://groups.google.com/group/borland.public.delphi.language.delphi.general/browse_thread/thread/1141d49f8bbba577
     http://objectmix.com/delphi/401713-alphanumeric-sort-routine-delphi.html

==========================

以下文件名将在Windows资源管理器中订购，如下所示：

test_1_test.txt

test_2_test.txt

test_11_test.txt

test_12_test.txt

test_21_test.txt

test_22_test.txt

例如，如果我将它们放在TStringList实例中并调用Sort，则排序顺序如下：

test_1_test.txt

test_11_test.txt

test_12_test.txt

test_2_test.txt

test_21_test.txt

test_22_test.txt

为了记录，上述文件名将在Cygwin的rxvt终端或CentOS等Linux发行版的xterm终端中订购，如下所示：

test_11_test.txt

test_12_test.txt

test_1_test.txt

test_21_test.txt

test_22_test.txt

test_2_test.txt

您能否帮助评论如何理解排序行为的这种差异？此外，是否可以获得与Windows资源管理器中相同的顺序？任何建议表示赞赏！

PS：我的Windows语言环境设置为中文，但我认为英语语言环境也是如此。

Answer 1

StrCmpLogicalW能够处理数字，另一种选择是CompareString

Answer 2

感谢Anders - 答案是StrCmpLogicalW;我没有在Delphi 2009中找到它的声明，所以我在下面的测试中自己声明：

type
  TMyStringList = class(TStringList)
  protected
    function CompareStrings(const S1, S2: string): Integer; override;
  end;

function StrCmpLogicalW(P1, P2: PWideChar): Integer;  stdcall; external 'Shlwapi.dll';

function TMyStringList.CompareStrings(const S1, S2: string): Integer;
begin
  Result:= StrCmpLogicalW(PChar(S1), PChar(S2));
end;

procedure TForm11.Button2Click(Sender: TObject);
var
  SL: TMyStringList;

begin
  SL:= TMyStringList.Create;
  try
    SL.Add('test_1_test.txt');
    SL.Add('test_11_test.txt');
    SL.Add('test_12_test.txt');
    SL.Add('test_2_test.txt');
    SL.Add('test_21_test.txt');
    SL.Add('test_22_test.txt');
    SL.Sort;
    Memo1.Lines:= SL;
  finally
    SL.Free;
  end;
end;