Sorting TSTringList Names property as integers instead of strings

Question

I have a large file of text data where each line looks like such

10005=08/18/09,No BS,25094,wrg1

and the data is out of order (i.e. the number before the equal sign)

I load this file into a StringList as Name Value pairs. The TStringList sort function does not of course because the numbers are strings and not integers.

How can i get these into order before loading them into the TStringList?

Is there a fast function that I perform the file on that returns a TStrings that I can assign to the TStringList?

thankx

Why do you need this in the described order? – jachguate Mar 15 '13 at 02:52 — jachguate, Mar 15 '13 at 02:52

score 4 · Accepted Answer · edited Mar 15 '13 at 07:12

4

function StrCmpLogicalW(sz1, sz2: PWideChar): Integer; stdcall;
  external 'shlwapi.dll' name 'StrCmpLogicalW';

function MyCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := StrCmpLogicalW(PWideChar(List[Index1]), PWideChar(List[Index2]));
end;

Usage:

  StringList.CustomSort(MyCompare);

edited Mar 15 '13 at 07:12

TLama

71,521
15
192
348

answered Mar 15 '13 at 07:05

NGLN

41,230
8
102
186

@TLama No need to declare as `PWideChar`, see [this answer](http://stackoverflow.com/a/10437339/757830). – NGLN Mar 15 '13 at 07:31
I know that it's not required (hence the edit comment). The best I would use is `PCWSTR` if it were defined in Delphi. – TLama Mar 15 '13 at 07:36

Sorting TSTringList Names property as integers instead of strings

1 Answers1

Linked