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

Тема в разделе "Delphi - Система", создана пользователем lexaltd, 3 сен 2008.

Статус темы:
Закрыта.
  1. lexaltd

    lexaltd Гость

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

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

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

    Код (Text):
    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;
    Может есть для обратного порядка тоже какая то процедура ?

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

    Зарание спасибо
     
  2. lexaltd

    lexaltd Гость

    А можно по подробней как это всё будет выгледить - я не сильно в этом разбираюсь

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

    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;
     
Загрузка...
Похожие Темы - Сортировка обратном порядке
  1. vera2014
    Ответов:
    0
    Просмотров:
    1.069
  2. Liori
    Ответов:
    2
    Просмотров:
    1.003
  3. FCDK
    Ответов:
    0
    Просмотров:
    1.261
  4. ленарано
    Ответов:
    1
    Просмотров:
    1.102
  5. Creder
    Ответов:
    0
    Просмотров:
    1.344
Статус темы:
Закрыта.

Поделиться этой страницей