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

浏览数：158 / 时间：2015年06月08日

对于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;

 

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

标签： 编程语言 Java C C# Javascript js Python Ruby Spring 程序 VB

相关文章

随机文章

您可能还喜欢

您可能还喜欢