Сортировка в combobox от большего к меньшему?

[Dux]

В combobox список годов, необходимо отсортировать от большего к меньшему. Обычное свойство sort сортирует наоборот. Подскажите, есть ли какой другой вариант?

[evg_m]

1. получать для заполнения правильно отсортированный список.
1.1. получать отсортированный и вставлять в обратном порядке.
2. при заполнении программно ставить на нужное место.
3. использовать доп. список для сортировки.
3.1. ( == обычная сортировка +1.1)
3.2. ( == своя сортировка +1.)

type
  TDescYear =class(TStringList)
  protected
    function CompareStrings(const S1, S2: string): Integer; override; 
  end;

r:=TDescYear.Create;
r.text:=combobox1.Items.Text;
r.Sorted:=true;
combobox1.Items.Text:=r.Text;

[Dux]

Не работает.. может я что не так делаю? Зачем строка

function CompareStrings(const S1, S2: string): Integer; override;

?

[Dux]

неужели нет простенького примера?

[evg_m]

Зачем строка

...

Description

TStrings uses CompareStrings internally to compare the values of strings that appear in the list. For example, the IndexOf and IndexOfName methods use CompareStrings to compare a specified string with the strings in the list.

S1 and S2 are the strings to compare.

CompareStrings returns a value less than 0 if S1 < S2, 0 if S1 = S2, and a value greater than 0 if S1 > S2.

As implemented in TStrings, CompareStrings uses the global AnsiCompareText function, which compares strings case insensitively. Some descendant classes override this method to change the way strings are compared (for example, to introduce case sensitivity).

Вам надо описать свой класс в котором будет своя функция сравнения строк CompareStrings ; override;

почему не использовать ?

1. получать для заполнения правильно отсортированный список.
1.1. получать отсортированный и вставлять в обратном порядке.
2. при заполнении программно ставить на нужное место.

[Serge_Bliznykov]

Вы не понимаете, что лучше обеспечить порядок записей ДО помещения их в комбобокс?

Вы по прежнему хотите примерчик?!

ну, извольте:

procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Items.Clear;
 ComboBox1.Items.Append('2011');
 ComboBox1.Items.Append('2008');
 ComboBox1.Items.Append('2012');
 ComboBox1.Items.Append('2013');
 ComboBox1.Items.Append('2010');
end;


procedure TForm1.ButtonSortDescClick(Sender: TObject);
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;

var TS : TStringList;
begin
  try
    TS := TStringList.Create;
    TS.Text := ComboBox1.Items.Text;
    TS.CustomSort( @StringListCompareStrings );
    ComboBox1.Items.Text := TS.Text;
  finally
    FreeAndNil(TS);
  end;
end;

[Dux]

Serge_Bliznykov, огромное спасибо за наглядный пример! Теперь все сортирует правильно!