Главная страница
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
15-1441127797
Pavia
2015-09-01 20:16
2016.07.24
Хочу пример таблицы


2-1415045309
M.A.
2014-11-03 23:08
2016.07.24
WM_MOUSEMOVE для STATIC


2-1414065182
Kettle
2014-10-23 15:53
2016.07.24
Присвоение свойству OLE объекта значения NULL


2-1415676362
SKIPtr
2014-11-11 06:26
2016.07.24
определение положение формы


15-1442015464
trenkin
2015-09-12 02:51
2016.07.24
Ошибка при открытии файла PDF из вложения