有一个Integer型的数组,如何将这个数组里的元素排序呢?

50 | 问答知识库用户 |浏览248次
收藏|2014/05/17 22:00
有一个Integer型的数组,如何将这个数组里的元素排序呢? 希望可以提供Delphi排序的代码!

满意回答

2014/05/21 21:20

参考一下:
procedure TForm6.quicksort(var a: array of integer; left, right: integer);
var
  i, j, Povit: integer;
begin
  i := left;
  j := right;
  Povit := a[i];
  if (i < j) then
  begin
    while (i < j) do
    begin
      while ((i = Povit)) do
        dec(j);
      if (i < j) then
      begin
        a[i] := a[j];
        inc(i);
      end;
      while ((i < j) and (a[i] <= Povit)) do
        inc(i);
      if (i < j) then
      begin
        a[j] := a[i];
        dec(j);
      end;
    end;
    a[i] := Povit;
    quicksort(a, left, i - 1);
    quicksort(a, i + 1, right);
  end;
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...