How to get the sort order in Delphi as in Windows Explorer?

Question

Summarization:

The terminology that I have been looking for seems to be "natural sort".
For behaviors in operating systems:
- For Windows (version >= XP), Windows Explorer utilizes natural sort.
- For Linux terminals: use "ls -v" instead of plain "ls" to get natural sort.
For programing in Delphi, use StrCmpLogicalW Windows API to get natural sort.
For programing in Delphi & Kylix & Lazarus, use hand-crafted functions to get natural sort:
- (1) Delphi wrapper for Natural Order String Comparison by Martin Pool.
  http://irsoft.de/web/strnatcmp-and-natsort-for-delphi
- (2) Codes of alphanum sorting algorithm in other languages from davekeolle site.
  http://www.davekoelle.com/alphanum.html
- (3) Other knowledgable pages:
  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

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

The following file names will be ordered in the Windows Explorer as shown below:

test_1_test.txt

test_2_test.txt

test_11_test.txt

test_12_test.txt

test_21_test.txt

test_22_test.txt

If, for example, I put them in a TStringList instance and call Sort, the sorted order is as below:

test_1_test.txt

test_11_test.txt

test_12_test.txt

test_2_test.txt

test_21_test.txt

test_22_test.txt

And for record, the above file names will be ordered in the rxvt terminal of Cygwin or xterm terminal of Linux distributions such as CentOS as shown below:

test_11_test.txt

test_12_test.txt

test_1_test.txt

test_21_test.txt

test_22_test.txt

test_2_test.txt

Could you help to comment on how to understand this difference of sorting behaviors? Furthermore, is it possible to get the same order as in Windows Explorer? Any suggestion is appreciated!

PS: My Windows locale is set to Chinese but I would think the same for English locale.

see http://stackoverflow.com/questions/2175066/how-can-i-get-tstringlist-to-sort-differently-in-delphi — ax., Feb 27 '11 at 17:41
I've noticed this before. AFAICS, newer Windows-versions recognizes the number within the filename, and sorts the numbers like numbers and not like text. — Jørn E. Angeltveit, Feb 27 '11 at 17:42
@ax: Thank you very much for the information! I will read that now! — SOUser, Feb 27 '11 at 17:49
The sort order for files and folders whose names contain numerals: http://support.microsoft.com/kb/319827 — Jørn E. Angeltveit, Feb 27 '11 at 17:49
@Jørn E. Angeltveit: Thank you but is this a speculation or from official sources? — SOUser, Feb 27 '11 at 17:51
@Jørn E. Angeltveit: Thank you very much! I will read that now! — SOUser, Feb 27 '11 at 17:53
shoot, strnatcmp4delphi is offline, I've been using it for a long time but can't find it now — Peter Turner, Jan 05 '15 at 21:37

score 21 · Accepted Answer · answered Feb 27 '11 at 17:48

21

StrCmpLogicalW is able to handle numbers, the other alternative is CompareString

answered Feb 27 '11 at 17:48

Anders

83,372
11
96
148

Thank you very much for your suggestion! – SOUser Feb 27 '11 at 17:55
Could you help to comment on what is the best practice to achieve the same function in Kylix (Kylix-compiled app running in Linux)? – SOUser Feb 27 '11 at 18:50
@Xichen Li: If linux/posix does not have a similar function you would have to write your own... – Anders Feb 27 '11 at 19:26
I see! Thank you for your suggestion! – SOUser Feb 27 '11 at 22:31

score 18 · Answer 2 · edited Aug 03 '13 at 08:39

18

Thanks to Anders - the answer is StrCmpLogicalW; I have not found it's declaration in Delphi 2009 sources, so I declared it myself in the test below:

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;

edited Aug 03 '13 at 08:39

Sam

2,573
10
39
58

answered Feb 27 '11 at 18:15

kludg

26,590
4
63
115

Thank you very much for your time and kind help! Your sample code is very helpful! – SOUser Feb 27 '11 at 18:34
1

[Error] Test.pas(264): Incompatible types: 'Char' and 'WideChar'. How to fix (D7)? – NGLN Apr 19 '12 at 19:11
2

@NGLN Since no `StrCmpLogicalA` version exists you should convert string to unicode before calling `StrCmpLogicalW`, probably using `MultiByteToWideChar` function if you have national chars - http://msdn.microsoft.com/en-us/library/windows/desktop/dd319072(v=vs.85).aspx – kludg Apr 20 '12 at 06:46

How to get the sort order in Delphi as in Windows Explorer?

2 Answers2

Linked

Related