Сортировка в TStringList

[Shouldercannon]

Есть список файлов, который имеет правильную сортировку (По Имя и По возрастанию). Загружаю их в TStringList, где сортировка не радует. Как исправить положение?

Sort;
Sorted := True

Не помогают

PHP код:

1.txt
10.txt
100.txt
11.txt
12.txt
2.txt
20.txt
200.txt
3.txt
4.txt 


[Пепел Феникса]

так какая сортировка нужна?
вы можете написать свой метод сортировки

[Аватар]

А чем не нравится? Строкова, естественно '2' больше '10'. Делай пользовательскую и своим методом сортируй как хочется. См. CustomSort

[Shouldercannon]

Сообщение от Пепел Феникса

так какая сортировка нужна?
вы можете написать свой метод сортировки

По Имя и По возрастанию как на скрине

[Аватар]

Как на скрине нужно символьное имя без расширения в числовое преобразовывать, если удастся конечно, и сортировать по числовому. Либо слева пробелы добавлять до определенной длины и с учетом этого делать. По любому только используя метод CustomSort. Так, например

function MySort1(List: TStringList; Index1, Index2: Integer): Integer;
var s1,s2: String;
begin
  s1:=StringOfChar(' ',10)+List.Strings[Index1];
  s2:=StringOfChar(' ',10)+List.Strings[Index2];
  Result:=CompareStr(Copy(s1,Length(s1)-11,12),Copy(s2,Length(s2)-11,12));
end;
...
  xList.CustomSort(MySort1);

[Filka]

Сортировка списка по аналогу "Проводника Windows"
http://alexander-bagel.blogspot.is/2013/06/windows.html

Заменить

function CompareStringOrdinal(const S1, S2: string): Integer;

на

function CompareStringOrdinal(List: TStringList; Index1, Index2: Integer): Integer;

Добавить

var
  //...
  S1, S2: string; // <--
begin
  S1 := List.Strings[Index1]; // <--
  S2 := List.Strings[Index2]; // <--
  
  // Проверка на пустые строки
  //...

[Shouldercannon]

Сообщение от Filka

Сортировка списка по аналогу "Проводника Windows"

Вот в самый раз

function StrCmpLogicalW(psz1, psz2: PWideChar): Integer; stdcall; external 'shlwapi.dll';

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

[Arigato]

А если сделать так?

function MySort1(List: TStringList; Index1, Index2: Integer): Integer;
var v1,v2,c: integer;
begin
  val(List.Strings[Index1],v1,c);
  val(List.Strings[Index2],v2,c);
  Result:=v1-v2;
end;

[Shouldercannon]

Сообщение от Arigato

А если сделать так?

function MySort1(List: TStringList; Index1, Index2: Integer): Integer;
var v1,v2,c: integer;
begin
  val(List.Strings[Index1],v1,c);
  val(List.Strings[Index2],v2,c);
  Result:=v1-v2;
end;

Первыми пошли буквы потом цифры.

[Arigato]

У вас в условии не сказано, что в именах файлов могут быть буквы. Показан пример только с цифрами.