使用windows资源管理器的排序规则

对于windows资源管理器 abc_1_def是要排到abc_10_def前面的

而一般的排序规则, 都会吧_10_排到前面

 

所以为了使用习惯, 最好用资源管理器的排序规则, windows有个API提供了此规则:

在Shlwapi.dll中的StrCmpLogicalW函数

 

可惜, Delphi目前似乎并没有引入此函数, 至少我在XE5的Winapi.ShLwApi中也没有见到, 所以只能手动引用了

 

引用以后, 使用方式和其他排序一样, 用listview举例:

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

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  ListView1.AlphaSort;
end;

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer;
  var Compare: Integer);
begin
  Compare := StrCmpLogicalW(PChar(Item1.Caption), PChar(Item2.Caption));
end;