如何将 0-9 这十个数字随机打乱排列（不能重复）？

Question

如何将 0-9 这十个数字随机打乱排列（不能重复）？
每一位都不能重复出现。比如 2-6-4-3-0-5-9-7-1-8

Answer 1

在http://www.xue68.com 搜索到过类似的解决方法

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  arri :Array[0..9] of Integer;
  i,j,k: integer;
begin
  Randomize;
  for i := 0 to 9 do
  arri[i] := i;  for i := 0 to 9 do
  begin
    j := random(10);
    k := arri[i];
    arri[i] := arri[j];
    arri[j] := k;
  end;
  {arri中保存的是0-9的随机无重复数}
  for i := 0 to 9 do
  begin
    ListBox1.Items.Add(InttoStr(arri[i]));
    {这部分测试}
  end;
end;