Главная страница
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.007 c
2-1415683622
Петраррка
2014-11-11 08:27
2016.07.24
Исходник


2-1416114619
topdon
2014-11-16 08:10
2016.07.24
Компонент "Страница HTML" Delphi XE7


15-1444728307
Юрий Зотов
2015-10-13 12:25
2016.07.24
java XPath


15-1447968605
Юрий
2015-11-20 00:30
2016.07.24
С днем рождения ! 20 ноября 2015 пятница


15-1444082370
d2pak
2015-10-06 00:59
2016.07.24
Что с Delphi World