Сортировка в обратном порядке в Checklistbox

  • Автор темы lexaltd
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

lexaltd

Гость
#1
Помогите с сортировкой в обратном порядке в CheckListBox.

В норм. порядке использую поцедуру SORT.

Сортирую так :

Код:
procedure ParamSort;
var
t: TStringList;
begin
t:=TStringList.Create;
t.AddStrings(Form1.CheckListBox1.Items);
t.Sort;
Form1.CheckListBox1.Items.Clear;
Form1.CheckListBox1.Items.AddStrings(t);
end;
Может есть для обратного порядка тоже какая то процедура ?

Пробывал через массив , но там не очень получается - чувствителен к регистру и т. д

Зарание спасибо
 
L

lexaltd

Гость
#2
cм TStringList.CustomSort
PS: указывать Form1. - крайне неграмотно.
А можно по подробней как это всё будет выгледить - я не сильно в этом разбираюсь

Разобрался
Может кому пригодится

function MySort(List: TStringList; Index1, Index2: Integer): Integer;
begin
if List[Index1]<List[Index2] then
begin
Result := 1;
Exit;
end;
if List[Index1]=List[Index2] then
Result := 0
else Result := -1;
end;
 
Статус
Закрыто для дальнейших ответов.