Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2016.07.24;
Скачать: CL | DM;

Вниз

Удивительный QuickSort   Найти похожие ветки 

 
DayGaykin ©   (2015-10-11 19:15) [0]

Простой пример:

program Project1;
{$APPTYPE CONSOLE}

uses
 SysUtils, Classes;

function Cmp(List: TStringList; Index1, Index2: Integer): Integer;
begin
 Writeln("Compare: ", Index1, " ", Index2);
 Result := CompareStr(List[Index1], List[Index2]);
end;

var
 SL: TStringList;
begin
 try
   SL := TStringList.Create;
   try
     SL.Add("1");
     SL.Add("2");
     SL.Add("3");
     SL.Add("4");
     SL.CustomSort(Cmp);
     Writeln(SL.Text);
   finally
     SL.Free;
   end;
 except
   on E: Exception do
     Writeln(E.ClassName, ": ", E.Message);
 end;
 readln;
end.


Вывод:

Compare: 0 1
Compare: 1 1
Compare: 3 1
Compare: 2 1
Compare: 1 1
Compare: 2 2
Compare: 3 2
Compare: 2 2
1
2
3
4

Вопрос: зачем функция Cmp вызывается с одинаковыми значениями в параметрах Index1 и Index2?
Ведь заведомо известно, что во-первых, строка равна сама себе, во-вторых строку все-равно бессмысленно менять местами саму с собой.


 
картман ©   (2015-10-11 19:37) [1]

http://guildalfa.ru/alsha/node/10



Страницы: 1 вся ветка

Текущий архив: 2016.07.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.008 c
15-1445092188
Дмитрий Белькевич
2015-10-17 17:29
2016.07.24
Отображение меню


15-1447023946
Kerk
2015-11-09 02:05
2016.07.24
Кресло


15-1442224740
voronin20
2015-09-14 12:59
2016.07.24
Файл Exchange. В системных логах приложений появляется ошибка


15-1446845402
Юрий
2015-11-07 00:30
2016.07.24
С днем рождения ! 7 ноября 2015 суббота


15-1443907804
Юрий
2015-10-04 00:30
2016.07.24
С днем рождения ! 4 октября 2015 воскресенье