标签：
对于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;
标签：
原文地址：http://www.cnblogs.com/hs-kill/p/4242479.html
