下面图老师小编要向大家介绍下数字随机排序，看起来复杂实则是简单的，掌握好技巧就OK，喜欢就赶紧收藏起来吧！
【 tulaoshi.com - 编程语言 】
假设有一组数字 1~1000,请将它们随机填充在一个数组中
要求：
1、数组中
2、整个程式运算很快！
william 兄解答
varNums: array[1..1000] of integer;i,j,k,temp: integer;beginfor i := Low(Nums) to High(Nums) doNums[i] := i;for i := 0 to 1000 do begin // 1001 round may not be enoughj := random(High(Nums))+1;k := random(High(Nums))+1;temp := Nums[j];Nums[j] := Nums[k];Nums[k] := temp;end;end;
Fishman 兄解答
我有一些新的想法，與大家共同分享、討論
procedure TForm1.Button11Click(Sender: TObject);VARI,R : Integer;S : TStrings;beginListBox1.Items.Clear;for i := 1 to 1000 dobeginListBox1.Items.Add(IntToStr(I));end;S := TStringList.Create;S.Assign(ListBox1.Items);ListBox2.Items.Clear;FOR I := 1000 DOWNTO 1 DOBEGINR := Random(I) + 1;ListBox2.Items.Add(S.Strings[R - 1]);S.Delete(R - 1);END;S.Free;end;
在此我用ListBox 來代替 Array，以方便直接觀看執行結果
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）
--------------------------------
小弟才疏學湥粲兄囌`請不吝指教
--------------------------------
来源:http://www.tulaoshi.com/n/20160219/1602124.html
