Функция CompareIntDesc()

@Sasha · Регистрация: 05.06.2008

Студворк — интернет-сервис помощи студентам

Здравствуйте!

Ребята подскажите, пожалуйста, нашёл функцию сортировки цифр в StringList, но почему-то правильная сортировка проходит только после того как я несколько раз нажму кнопку. Почему не сортирует правильно с первого раза. Заранее благодарен за ответ.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// Сортируем цифры по возрастанию
 int __fastcall CompareIntDesc(TStringList *List, int Index1, int Index2)
 {
  int a = atoi(List->Strings[Index1].c_str());
  int b = atoi(List->Strings[Index2].c_str());
  return a > b;
 }
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TStringList *list = new TStringList();
   list->Assign(ListBox1->Items);
   list->CustomSort(CompareIntDesc);
   ListBox1->Items->Assign(list);
   delete list;
   list = NULL;
}

@volvo · 23.08.2013, 01:10

C++
1
2
3
// ...
return a - b;
// ...

Почему - см. в описании, что должна возвращать функция: TStringListSortCompare

@Sasha · 23.08.2013, 11:16 **[ТС]**

UI, скажи а можно ли сделать такую функцию как я приводил выше только чтобы она сортировала даты (например: 12.12.2012)

@volvo · 23.08.2013, 11:35

Всё можно сортировать. Даты - вот так: Сортировка дат

Или вообще вот так:

C++
1
2
3
4
5
int __fastcall CompareDates(TStringList *List, int Index1, int Index2)
{
    // Не забудь подключить DateUtils.hpp
    return CompareDate(StrToDate(List->Strings[Index1]), StrToDate(List->Strings[Index2]));
}

@Sasha · 23.08.2013, 12:13 **[ТС]**

Я сделал вот так

C++
1
2
3
4
5
6
int __fastcall CompareDateDesc(TStringList *List, int Index1, int Index2)
 {
  TDateTime a = StrToDate(List->Strings[Index1].c_str());
  TDateTime b = StrToDate(List->Strings[Index2].c_str());
  return a - b;
 }

@volvo · 23.08.2013, 12:35

Ну, и зачем? Во-первых, зачем c_str()? Чтобы сделать 2 никому не нужных преобразования? Процессор слишком мощный? StrToDate получает в качестве параметра строку, а не const char *, вообще-то... Во-вторых, если есть готовая функция для сравнения (да еще и - чудо!!! - возвращающая результат нужного типа) - я предпочитаю использовать именно ее, а не самописные аналоги...

@Avazart · 23.08.2013, 15:47

Насколько я помню ф-ция компаратор должна возвращать одно из значений : 1, 0, -1 ( >, =, < ) а не тип bool или разницу

Добавлено через 1 минуту

You return 0 if the entry referred to by Index1 equals the entry referred to by Index2

You return less than 0 if the entry referred to by Index1 is less than the entry referred to by Index2

You return a number above 0 if the entry referred to by Index1 is greater than the entry referred to by Index2

По ссылке UI http://docwiki.embarcadero.com... ortCompare

@volvo · 23.08.2013, 15:57

Не

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

одно из значений : 1, 0, -1

, а

0 ... less than 0 ... number above 0

, то есть, должно быть любое целочисленное значение, по знаку которого определится результат сравнения.

@Avazart · 23.08.2013, 16:00

Я имел ввиду что значения три, а не два...

Ноль не имеет знака.

@volvo · 23.08.2013, 16:27

Значений, возвращаемых этой функцией, может быть не 2 и не три, а 2³², весь диапазон int... Если я верну из функции (-2013), что будет, по-твоему? Ошибка (судя по посту №7 - да, ведь (-2013) не является ни (-1), ни нулем, ни единицей)?

@Avazart · 23.08.2013, 17:17

Вопрос не в значениях, а в состоянии, их три : больше, меньше, равно.

Именно поэтому ф-ция возвращает int, а не bool.

Добавлено через 39 минут

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

Ошибка (судя по посту №7 - да, ведь (-2013) не является ни (-1), ни нулем, ни едини

Возвращать можно любое отрицательное число, не важно это -2013 или -1, но очевиднее использовать именно -1 в коде, а не магическое -2013

Добавлено через 3 минуты
В общем виде выглядеть должно приблизительно так

C++
1
2
3
4
5
6
int __fastcall CompareDates(TStringList *List, int Index1, int Index2)
{
   if ( /*...*/ ) return  1;
   if ( /*...*/ ) return  0;
   if ( /*...*/ ) return -1;
}

@BRcr · 23.08.2013, 23:25

Avazart, такая скрупулезность совершенно ни к чему, и вот почему. Использовать компаратор большая часть людей будет как-то так:

C++
1
2
3
4
int res( 0 );
if( ( res = CompareDates( /**/ ) ) > 0 ) /**/;
else if( res < 0 ) /**/;
else /**/;

Поэтому неважно, единички компаратор отдает или произвольные числа. Важны знак и его отсутствие.

@Avazart · 24.08.2013, 00:10

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

Поэтому неважно, единички компаратор отдает или произвольные числа. Важны знак и его отсутствие

Важно, если необходимо соблюдение относительного порядка следование равных элементов.

@BRcr · 24.08.2013, 00:13

А?

@Avazart · 24.08.2013, 00:17

Два равных элемента могут быть связаны с разными данными, иногда требуется соблюсти их относительный первоначальный порядок при сортировке

@BRcr · 24.08.2013, 00:25

ОК. Как это реализовать, если компаратор возвращает одно из трех известных значений, и почему это нельзя или сложнее реализовать, если компаратор возвращает произвольные значения, отличающиеся знаком?

@Avazart · 24.08.2013, 00:43

Ну согласен возможно мое предположение ошибочно, не каждый день смотрю внутрь быстрой сортировки (тем более на Deplhi)

Classes.pas

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure QuickSort(SortList: TPointerList; L, R: Integer;
  SCompare: TListSortCompareFunc);
var
  I, J: Integer;
  P, T: Pointer;
begin
  repeat
    I := L;
    J := R;
    P := SortList[(L + R) shr 1];
    repeat
      while SCompare(SortList[I], P) < 0 do
        Inc(I);
      while SCompare(SortList[J], P) > 0 do
        Dec(J);
      if I <= J then
      begin
        if I <> J then
        begin
          T := SortList[I];
          SortList[I] := SortList[J];
          SortList[J] := T;
        end;
        Inc(I);
        Dec(J);
      end;
    until I > J;
    if L < J then
      QuickSort(SortList, L, J, SCompare);
    L := I;
  until I >= R;
end;

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	23.08.2013, 11:16 [ТС]
	UI, скажи а можно ли сделать такую функцию как я приводил выше только чтобы она сортировала даты (например: 12.12.2012) 0

@volvo Супер-модератор 33402 / 21512 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	23.08.2013, 12:35
	Ну, и зачем? Во-первых, зачем c_str()? Чтобы сделать 2 никому не нужных преобразования? Процессор слишком мощный? StrToDate получает в качестве параметра строку, а не const char *, вообще-то... Во-вторых, если есть готовая функция для сравнения (да еще и - чудо!!! - возвращающая результат нужного типа) - я предпочитаю использовать именно ее, а не самописные аналоги... 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	23.08.2013, 16:00
	Я имел ввиду что значения три, а не два... Ноль не имеет знака. 0

@volvo Супер-модератор 33402 / 21512 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	23.08.2013, 16:27
	Значений, возвращаемых этой функцией, может быть не 2 и не три, а 2³², весь диапазон int... Если я верну из функции (-2013), что будет, по-твоему? Ошибка (судя по посту №7 - да, ведь (-2013) не является ни (-1), ни нулем, ни единицей)? 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	24.08.2013, 00:13
	А? 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	24.08.2013, 00:17
	Два равных элемента могут быть связаны с разными данными, иногда требуется соблюсти их относительный первоначальный порядок при сортировке 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	24.08.2013, 00:25
	ОК. Как это реализовать, если компаратор возвращает одно из трех известных значений, и почему это нельзя или сложнее реализовать, если компаратор возвращает произвольные значения, отличающиеся знаком? 0