Сортировка в ListBox снизу вверх

[Ares80]

Всем привет!
Прошу помощи:

var S : TStringList;

begin
S := TStringList.Create;
S.Sorted := True;

IdFTP.List(S, '', False);

S.Sort;

ListBox.Items := S;
end;

Получаю :
2014_12_02-14_58
2014_12_02-15_00
2014_12_02-15_23

Нужно :
2014_12_02-15_23
2014_12_02-15_00
2014_12_02-14_58

Свое решение, S1 можно исключить сразу подставить ListBox:

var 
I : Integer;
S, S1 : TStringList;

begin
S := TStringList.Create;
S1 := TStringList.Create;
S.Sorted := True;

IdFTP.List(S, '', False);

S.Sort;

for I := S.Count -1 downto S.Count -10 do S1.Add(S[I]); // 10 последних файлов на FTP
    
ListBox.Items := S1;
end;

Решение от Аватар, используется CustomSort():

function MySort(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:=-CompareText(List.Strings[Index1],List.Strings[Index2]);
end;
...
//  S.Sorted := True; - этого не надо
  S.CustomSort(MySort);
  ListBox.Items.Assign(S);
  S.Free;

[Аватар]

см. метод CustomSort

[Iron Monk]

В ListBox, случайно, сортировка не true?

[Ares80]

Аватар, смотрел, каша - малаша )
Iron Monk, S.Sorted := True сортирует в читабельном виде:
2014_12_02-14_58
2014_12_02-15_00
2014_12_02-15_23
А вот как перевернуть....

[Аватар]

каша - малаша

Правильно пользоваться не будет каши и малаши

[Iron Monk]

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

Аватар, смотрел, каша - малаша )
Iron Monk, S.Sorted := True сортирует в читабельном виде:
2014_12_02-14_58
2014_12_02-15_00
2014_12_02-15_23
А вот как перевернуть....

Обратным циклом добавлять в ListBox.

[Ares80]

Аватар, Iron Monk, спасибо за ответы.

Сделал так:

var 
I : Integer;
S, S1 : TStringList;

begin
S := TStringList.Create;
S1 := TStringList.Create;
S.Sorted := True;

IdFTP.List(S, '', False);

S.Sort;

for I := S.Count -1 downto S.Count -10 do S1.Add(S[I]); // 10 последних файлов на FTP
    
ListBox.Items := S1;
end;

[Аватар]

function MySort(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:=-CompareText(List.Strings[Index1],List.Strings[Index2]);
end;
...
//  S.Sorted := True; - этого не надо
  S.CustomSort(MySort);
  ListBox.Items.Assign(S);
  S.Free;

[Iron Monk]

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

Аватар, Iron Monk, спасибо за ответы.

Сделал так:

var 
I : Integer;
S, S1 : TStringList;

begin
S := TStringList.Create;
S1 := TStringList.Create;
S.Sorted := True;

IdFTP.List(S, '', False);

S.Sort;

for I := S.Count -1 downto S.Count -10 do S1.Add(S[I]); // 10 последних файлов на FTP
    
ListBox.Items := S1;
end;

А зачем второй StringList?

for i := S.Count - 1 downto 0 do ListBox.Items.add(S[i]);

[Ares80]

Iron Monk, на будущее ListBox`a потом не будет.