Delphi 生成 不重复随机数！！！

procedure TForm1.btn1Click(Sender: TObject);
var
  i, J: Integer;
  A : array[0..7] of Integer;
begin
  mmo1.Clear;
  Randomize;
  for i := 0 to 7 do
    A[i] := i+1; // 得到顺序的数组

  for i := 0 to 7 do
  begin
    J := Random(7 - i) ; // 随机范围不断缩小
    mmo1.Lines.Add(IntToStr(A[J])); // 取出随机数据
    A[J] := A[7 - i]; // 将最后一个前移
  end;
end;