TForm1.Button1Click(Sender: TObject); b: integer; num: Integer; i, temp: integer; num := ; SetLength(b,num); i := num DO b[i] := i; ListBox1.Clear; i := num temp := Random(num - i + ) + ; ListBox1.Items.Add(IntToStr(b[temp])); b[temp] := b[num - i + ]; ; ;
转载于:https://www.cnblogs.com/hssbsw/archive/2012/03/10/2389186.html