как ускорить сортировку массива записей

[garuna]

Всё, задача решена. Почитал что такое "быстрая сортировка" и переделал код, в итоге всё работает почти мгновенно. Всем спасибо!

type
 TLRec = record
  _1, _2, _3, _4, _5: string;
  aDate: TDateTime;
  end;
  TLArr = array of TLRec;

...

var
 ARR: TLArr;


procedure SortArrayList(var A: array of TLRec; iLo, iHi: Integer) ;
 var
   Lo, Hi: Integer;
   Pivot, T: TDateTime;
 begin
   Lo := iLo;
   Hi := iHi;
   Pivot := A[(Lo + Hi) div 2].aDate;
   repeat
     while A[Lo].aDate < Pivot do Inc(Lo) ;
     while A[Hi].aDate > Pivot do Dec(Hi) ;
     if Lo <= Hi then
     begin
       T := A[Lo].aDate;
       A[Lo] := A[Hi];
       A[Hi].aDate := T;
       Inc(Lo) ;
       Dec(Hi) ;
     end;
   until Lo > Hi;
   if Hi > iLo then SortArrayList(A, iLo, Hi) ;
   if Lo < iHi then SortArrayList(A, Lo, iHi) ;
 end;

...

SortArrayList(ARR, Low(ARR), High(ARR));

[Serge_Bliznykov]

что-то меня эта строчка очень смущает:

A[Lo] := A[Hi];

Вы уверены, что код работает корректно и не затирает строковые данные в массиве?!!

[garuna]

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

что-то меня эта строчка очень смущает:

Вы уверены, что код работает корректно и не затирает строковые данные в массиве?!!

Точно, поспешил
вот так правильно:

procedure SortArrayList(var A: array of TLRec; iLo, iHi: Integer) ;
 var
   Lo, Hi: Integer;
   Pivot: TDateTime;
   T: TLRec;
 begin
   Lo := iLo;
   Hi := iHi;
   Pivot := A[(Lo + Hi) div 2].aDate;
   repeat
     while A[Lo].aDate < Pivot do Inc(Lo) ;
     while A[Hi].aDate > Pivot do Dec(Hi) ;
     if Lo <= Hi then
     begin
       T := A[Lo];
       A[Lo] := A[Hi];
       A[Hi] := T;
       Inc(Lo) ;
       Dec(Hi) ;
     end;
   until Lo > Hi;
   if Hi > iLo then SortArrayList(A, iLo, Hi) ;
   if Lo < iHi then SortArrayList(A, Lo, iHi) ;
 end;

[Serge_Bliznykov]

вот так правильно:

вот, теперь другое дело!
Поздравляю!

p.s. просто любопытство ради, если сравните ваш SortArrayList
и тот, что был в постах#3/#7:

for i:= 0 to Length(A)-2 do
 for j:= i+1 to Length(A)-1 do
 begin
  if A[j].aDate < A[i].aDate  //сортируем по дате
  then
  begin
   TempArr:= A[i];
   A[i]:= A[j];
   A[j]:= TempArr;
  end;
 end;

Разница в скорости (времени выполнения) большая?

[garuna]

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

Разница в скорости (времени выполнения) большая?

Результаты сортировки 10.000 записей.

Мой изначальный код (без StrToDateTime): 19505 мс.
Код из поста #7 (без StrToDateTime): 19962 мс.
Код из поста #13: 28 мс.

[Serge_Bliznykov]

спасибо за ответ!

Это просто фантастика!!

Код из поста #7 (без StrToDateTime): 19962 мс.

простите, позволю себе переспросить - код такой, как я привёл в пост #14 ?!
(там цикл по j совсем другой, если Вы обратите внимание)!

[Dvoishnik]

И мне интересно с моим кодом результаты.

[garuna]

ну в общем-то да, всё таки ваш код быстрее немного. надо было просто несколько раз проверить и посмотреть средние результаты.

Ваш:
19 092 мс
18 963 мс
19 446 мс
19 180 мс

Мой изначальный (без StrToDateTime):
19 364 мс
19 360 мс
19 509 мс
19 430 мс

Если интересно, прилагаю исходник с замерами.
sort.zip

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

И мне интересно с моим кодом результаты.

ваш код Access Violation выбивает

[Serge_Bliznykov]

garuna, спасибо, обязательно гляну примерчик!