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

[garuna]

Есть массив записей, который нужно сортировать по дате. Использую для сортировки нижеприведенный код. Но он работает достаточно медленно, 1500 записей сортируются 10-15 секунд
Есть ли более быстрые способы сортировки? Или может можно как-то оптимизировать этот код? Спасибо за ответы.

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

...

var
 ARR: TLArr;


procedure SortArrayList(var A: array of TLRec); // процедура сортировки
var
 i, j: integer;
 TempArr: TLRec;
begin
 for i:= 0 to Length(A)-1 do
 for j:= 0 to Length(A)-2 do
 begin
  if StrToDateTime(A[j]._1) < StrToDateTime(A[j+1]._1)  //сортируем по дате
  then
  begin
   TempArr:= A[j];
   A[j]:= A[j+1];
   A[j+1]:= TempArr;
  end;
 end;
end;

...

SortArrayList(ARR);

[Alex11223]

Использовать нормальный алгоритм сортировки вместо пузырьковой сортировки. + не конвертировать строки в дату во время сортировки, а сразу хранить не в виде строк.

[Serge_Bliznykov]

для начала изменить код сортировки на такой:

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

если это не даст большого выигрыша, ещё ускорим!

[IliaIT]

по мне так главный тормоз StrToDateTime проще переделать сразу DT на входе, а потом в строку на выходе.
в цикле работать только с типом времени.

[Serge_Bliznykov]

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

+ не конвертировать строки в дату во время сортировки, а сразу хранить не в виде строк.

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

по мне так главный тормоз StrToDateTime проще переделать сразу DT на входе, а потом в строку на выходе.
в цикле работать только с типом времени.

с этим полностью согласен!

если этого будет мало - то индексировать только ссылки на запись - не меняя в цикле многократно множество строк (которые могут быть весьма объёмными, к слову!)

[Dvoishnik]

если нечего не напутал можно еще так причесать массив
чуть чуть быстрее чем пузырьком.

m:=Length(A)
k:=m
While (k>2) or flag do
	 Begin
		if k>2 then
			k:=round(k/1.24733095) ;
		flag:=false;
        i:=1;
		While (i+k-1 <= m) do
		 begin   
			if StrToDateTime(A[j]._1) < StrToDateTime(A[[i+k-1]._1) then
			 begin
				TempArr:=A[i+k-1];
				A[i+k-1]:=A[i];
				A[i]:=TempArr;
				flag:=true;
			 end;
			inc(i)
		 end;
	 end;

[Аватар]

Щас ТС скопипастит из #3 и будет крик, что не работает. Чуть подправил код Сержа

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

Да, не сомневаюсь, что основной тормоз - кудрявый цикл в #1, ну и символьная дата, но это вторично

[Alex11223]

С 2009 в Дельфи вроде ж завезли TArray<T>.Sort http://docs.embarcadero.com/products...rray_of_T.html кроме Sort у TList.

[Serge_Bliznykov]

концептуально это может выглядеть так:

type TIndexRec = record
 index : integer,
 dt : TDateTime
end; 
var
  AIdx : array of TIndexRec;
  tmp : TIndexRec;
  i,j, n : integer;
begin
  n := Length(A)
  SetLength(AIdx, n);
  for i:=0 to n-1 do with AIndx[i] do begin
    index := i;
    dt := StrToDateTime(A[i]);
  end;

  for i:=0 to n-2 do
    for j:=i+1 to n-1 do 
      if AIdx[i].dt < AIndx[j].dt then begin tmp := AIdx[i]; AIdx[i]:=AIdx[j]; AIdx[j]:=tmp end;
  
  // фактически всё - массив индексов отсортирован. По нему можно отсортировать исходный массив.
  //  а можно и использовать его для вывода записей в нужном порядке, не трогая исходный массив.
  
end;

Аватар, да! Точно так. Накосячил я! Спасибо!

Alex11223, это верно. Вполне возможно (если у ТС современная версия Дельфи) - это подходящий вариант!

[garuna]

А ведь действительно, избавился от StrToDateTime и стало НАМНОГО быстрее сортировать! =)

За коды благодарю, сейчас буду пробовать, может удастся еще больше ускорить)

Версия да, современная, XE3, только не совсем понял как в моем случае через TArray.Sort отсортировать, подкиньте примерчик если не сложно