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

Question

综述:

1. 我一直在寻找的术语似乎是"自然的排序".

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

   • 对于Windows(版本> = XP),Windows资源管理器使用自然排序.
   • 对于Linux终端:使用"ls -v"而不是普通的"ls"来获得自然排序.

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

4. 对于Delphi和Kylix&Lazarus中的编程,使用手工制作的函数进行自然排序:
   • (1)由Martin Pool进行自然顺序字符串比较的Delphi包装器.
     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-optimize-working-solution.html
     http://groups.google.com/group/borland.public.delphi.language.delphi.general/browse_thread/thread/1141d49f8bbba577
     http://objectmix.com/delphi/401713-字母排序-例行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终端或Linux发行版的xterm终端(如CentOS)中进行排序,如下所示:

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;