сортировка в stringlist

[Terikon]

Необходимо отсортировать по возрастанию имена файлов полученных из папки, ts.Sorted := True; не помог

var
  sr: TSearchRec;
  ts: TStringList;
begin
  mmo1.Clear;
  ts := TStringList.Create;
  ts.Sorted := True;
  if FindFirst('C:\Users\Admin\Desktop\Новая папка (16)\*.png', faAnyFile, sr) = 0
  then
  begin
    repeat
      ts.Add(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  mmo1.Lines.Assign(ts);
  ts.Free;
end;

выводит такой результат
1.png
10.png
11.png
12.png
14.png
15.png
16.png
17.png
2.png
3.png
4.png
5.png
6.png
7.png
8.png
9.png

[Аватар]

И что, отсортировала по возрастанию символов. Для того чтобы 2.png шло после 1.png, а не 17.png нужно или выровнять слева пробелами имена файлов или использовать метод customsort стриглиста

[min@y™]

Всё правильно отсортировал.

И что, отсортировала по возрастанию символов. Для того чтобы 2.png шло после 1.png, а не 17.png нужно или выровнять слева пробелами имена файлов или использовать метод customsort стриглиста

Согласен.

[Terikon]

решил использовать customsort
нашёл такую функцию сортировки, скажите как правильно передать ей параметры
вызов делаю здесь

end;
ts.CustomSort(StringListCompareStri ngs);
mmo1.Lines.Assign(ts);
ts.Free;

function StringListCompareStrings(List: TStringList;
  Index1, Index2: Integer): Integer;
begin
  if List.Strings[Index1] = List.Strings[Index2] then
    Result := 0
  else if List.Strings[Index1] < List.Strings[Index2] then
    Result := 1
  else
    Result := -1;
end;

[min@y™]

если оба имени файла - это числа, сравнить эти числа, иначе сравнить имена файлов.

[Terikon]

var
  sr: TSearchRec;
  ts: TStringList;
begin
  mmo1.Clear;
  ts := TStringList.Create;
  ts.Sorted := True;
  if FindFirst('C:\Users\Admin\Desktop\Новая папка (16)\*.png', faAnyFile, sr) = 0
  then
  begin
    repeat
      ts.Add(ChangeFileExt(sr.Name,''));  //записываю только имена файлов без расширения, т.е. только цифры
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  ts.CustomSort(StringListCompareStrings);///как заставить эту функцию работать ?
  mmo1.Lines.Assign(ts);
  ts.Free;
end;

function StringListCompareStrings(List: TStringList;
  Index1, Index2: Integer): Integer;
begin
  if List.Strings[Index1] = List.Strings[Index2] then
    Result := 0
  else if List.Strings[Index1] < List.Strings[Index2] then
    Result := 1
  else
    Result := -1;
end;

на выходе вот это
1
10
11
12
13
14
15
16
2
3
4
5
6
7
8
9

[min@y™]

на выходе вот это

что закодил, то и получил.

[Аватар]

Строка '17' меньше строки '2'. А вот число 17 больше числа 2. Делай выводы

[Terikon]

вот рабочий код, может кому пригодится, всем спасибо

function mySort(List: TStringList; first, second: Integer): Integer;
begin
  result := StrToInt(List.Strings[first]) - StrToInt(List.Strings[second]);
end;;


procedure TForm18.btn8Click(Sender: TObject);
var
  sr: TSearchRec;
  ts: TStringList;
begin
  mmo1.Clear;
  ts := TStringList.Create;
  if FindFirst('C:\Users\Admin\Desktop\Новая папка (16)\*.png', faAnyFile, sr) = 0
  then
  begin
    repeat
      ts.Add(ChangeFileExt(sr.Name, ''));
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  ts.CustomSort(mySort);
  mmo1.Lines.Assign(ts);
  ts.Free;
end;

[min@y™]

вот рабочий код, может кому пригодится, всем спасибо

Attention!!! говнокод detected!
Warning!!! DON'T COPYPASTE THIS!!!