Функция CompareIntDesc()

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

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

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

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

C++

// Сортируем цифры по возрастанию
 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++

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++

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++

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++

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

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;

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

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

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

@Avazart 8385 / 6147 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	23.08.2013, 15:47	7
	Насколько я помню ф-ция компаратор должна возвращать одно из значений : 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 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	23.08.2013, 15:57	8
	Не Сообщение от Avazart одно из значений : 1, 0, -1 , а 0 ... less than 0 ... number above 0 , то есть, должно быть любое целочисленное значение, по знаку которого определится результат сравнения. 0

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

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

@Avazart 8385 / 6147 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	24.08.2013, 00:10	13
	Сообщение от BRcr Поэтому неважно, единички компаратор отдает или произвольные числа. Важны знак и его отсутствие Важно, если необходимо соблюдение относительного порядка следование равных элементов. 0

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

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