Сортировка

[Trolololololo]

Здравствуйте! Есть процедура сортировки методом Шелла, необходимо посчитать за сколько проходов был отсортирован массив. Помогите, пожалуйста.

var
  incr: array [1..4] of integer = (7, 5, 2, 1);
procedure ShellSort(var A: array of byte);
var i, j, gap, k, x:integer;
begin
  for k:=1 to 4 do
  begin
    gap := incr[k];
    for i:=gap to Form1.SpinEdit1.Value-1 do
    begin
      x := a[i];
      j:=i-gap;
      while (x < a[j]) and (j >= 0) do
      begin
        a[j+gap] := a[j];
        j:=j-gap;
      end;
      a[j+gap] := x;
    end;
  end;
end;

Заранее спасибо!

[Человек_Борща]

GetTickCount функция вам поможет.

[Arigato]

GetTickCount поможет определить время, а не количество проходов. А для проходов надо просто на каждом проходе увеличивать счетчик.

[kta87]

Trolololololo, заведите переменную типа Integer и на каждом проходе

Inc('ваша переменная - счетчик');