我的問題是這樣的..
我添加了兩個label分別為：label1，label2；還有一個按鈕btn1Click
假設label1=300，
label2=3，
點擊btn1Click，就能得到這樣的結果。。。。
label1=300，這里的300，意思是程式從000-999 一千個數里隨機抽取300個不重復的數字，
label2=3，這里的3的意思是：隨機3次，這3次隨機的結果不能完全一樣，
最后把這3次隨機結果寫入到文本里,名字分別為test1.txt ,test2.txt ,test3.txt
請教各位老師,要如何寫代碼....
在發帖前嘗試過問度娘了.
uj5u.com熱心網友回復：
用亂數啊for i:=0 to 次數-1 do
獲取到亂數，判斷取到的是否與之前的相同，相同則重新獲取
最后就是一個寫入檔案的動作。
思路大概就是這樣的，代碼的話沒時間去幫你寫了。
uj5u.com熱心網友回復：
謝謝mathsfan 老師的提示uj5u.com熱心網友回復：
因為生成的亂數重復問題 (從000-999 不到1000 個的范圍里面,抽取幾百個, 重復的機率很高了, 所以這里不應該用for 回圈吧
用 while 回圈應該好控制點. 獲取的亂數, 沒達到要求,就繼續生成.
uj5u.com熱心網友回復：
用while回圈比較好，取0-1000中的亂數，取到后檢查一個TStringList中有沒有，沒有則插進去，并且個數加1.直到個數加到了300，用TStringList的savetofile保存到txt中就行了。
如果要保存3個且不相同，我不明白是不相同是什么意思，是里面的數相同但順序不同算相同嗎，如果要求數不完全相同，需要排序后挨個比較。如果確定三個TStringList都不相同，再逐個保存到txt中。
uj5u.com熱心網友回復：
老師好.
數相同順序不同 也算相同...
所以如你所說,,,需要排序后挨個比較后..確定不同 再輸出
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
網上搜索“抽牌演算法”，可以避免出現重復的數字。uj5u.com熱心網友回復：
你弄0-999的資料放在List中.然后隨機取一個以后就把該數從List中洗掉,再從List中隨機
uj5u.com熱心網友回復：
嗯 ...我找到 一個 VBA的 洗牌法..應該 抽牌演算法 一樣...我看看吧...
盼各位老師 寫寫代碼.好借鑒學習啊
uj5u.com熱心網友回復：
難而不會會而不難
uj5u.com熱心網友回復：
要自己結貼嗎?uj5u.com熱心網友回復：
procedure GetNum(ACount: Integer; AStr: TStrings);var
Arr: Array of Integer;
i, iValue: Integer;
begin
SetLength(Arr, 1000);
i := 0;
Randomize;
while i < ACount - 1 do
begin
iValue := Random(1000);
if Arr[iValue] = 0 then
begin
AStr.Add(IntToStr(iValue));
Inc(i);
end;
end;
SetLength(Arr, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
t: TStringList;
i, iCount, iNum: Integer;
begin
iCount := 300;//這個數字如果需要也可以隨機
iNum := 3; //這個數字如果需要也可以隨機
t := TStringList.Create;
for i := 1 to iNum do
begin
t.Clear;
GetNum(iCount, t);
t.SaveToFile(ExtractFilePath(Application.ExeName) + 'Text' + IntToStr(i) + '.txt');
end;
FreeAndNil(t);
end;
uj5u.com熱心網友回復：
procedure GetNum(ACount: Integer; AStr: TStrings);var
Arr: Array of Integer;
i, iValue: Integer;
begin
SetLength(Arr, 1000);
i := 0;
Randomize;
while i < ACount - 1 do
begin
iValue := Random(1000);
if Arr[iValue] = 0 then
begin
Arr[iValue] := iValue;//不好意思，漏了句
AStr.Add(IntToStr(iValue));
Inc(i);
end;
end;
SetLength(Arr, 0);
end;
uj5u.com熱心網友回復：
謝謝 baidu_21144645 老師....我測驗一下uj5u.com熱心網友回復：
先把0..999加到List中去，然后random抽出來，取一個就刪一個uj5u.com熱心網友回復：
procedure TForm1.Button1Click(Sender: TObject);var
I, nIdx :Integer;
LoadList :TStringList;
sGet :String;
begin
LoadList := TStringList.Create;
for I := 0 to 999 do LoadList.Add(IntToStr(I));
for I := 0 to 2 do begin //抽取3個，則0..2
nIdx := Random(LoadList.Count);
sGet := LoadList.Strings[nIdx];
LoadList.Delete(nIdx);
end;
end;
sGet 中的內容每次都不會相同
uj5u.com熱心網友回復：
取完了記得釋放LoadList哦uj5u.com熱心網友回復：
生成串列，取完以后將取出的資料洗掉，它肯定再也取不到相同的了。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/98920.html
標籤：語言基礎/算法/系統設計