使用delphi 写一个桶排序算法函数

好的，以下是使用 Delphi 编写的桶排序算法函数示例：

procedure BucketSort(var A: array of Integer; MaxValue: Integer);
var
  i, j: Integer;
  Buckets: array of Integer;
begin
  SetLength(Buckets, MaxValue + 1);
  for i := Low(A) to High(A) do
    Inc(Buckets[A[i]]);
  j := Low(A);
  for i := Low(Buckets) to High(Buckets) do
    while Buckets[i] > 0 do
    begin
      A[j] := i;
      Inc(j);
      Dec(Buckets[i]);
    end;
end;

使用方法如下：

var
  A: array[0..9] of Integer = (9, 3, 5, 1, 7, 8, 2, 6, 4, 0);
begin
  BucketSort(A, 9); // 最大值为 9
  // 输出排序后的数组
  for i := Low(A) to High(A) do
    Write(A[i], ' ');
end;

输出结果为：`0 1 2 3 4 5 6 7 8 9`