請問各位delphi高手 如何撰寫一運算數字 6組 例如： 20 21 22 21 20 25 中間不能有重覆號碼
如有重覆號碼自動加一
※ 謝謝版主通知 問題結案訊息 我已經把所有發問的問題結案了 請版主檢查是否正確！

<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Button1Click(Sender: TObject); const i1 : array[1..6] of integer = (20,21,22,21,20,25); var i2 : array[1..6] of integer; i,j : Integer; done : Boolean; s: String; begin i2[1] := i1[1]; for i := low(i1) 1 to high(i1) do begin i2[i] := i1[i]; done := False; j := 1; repeat if i2[j] = i2[i] then begin i2[i] := i2[i] 1; j := 1; end else begin inc(j); if j >= i then done := True; end; until done; end; s := ''; for i := low(i1) to high(i1) do s := s IntTostr(i1[i]) ','; s := s Chr(13); for i := low(i2) to high(i2) do s := s IntTostr(i2[i]) ','; showmessage(s); end; </textarea>

------
Fishman

===================引 用 Fishman 文 章===================
<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); const i1 : array[1..6] of integer = (20,21,22,21,20,25); var i2 : array[1..6] of integer; i,j : Integer; done : Boolean; s: String; begin i2[1] := i1[1]; for i := low(i1) 1 to high(i1) do ????begin ???? i2[i] := i1[i]; ???? done := False; ???? j := 1; ???? repeat ????????if i2[j] = i2[i] then ???????? begin ????????????i2[i] := i2[i] 1; ????????????j := 1; ???????? end ????????else ???????? begin ????????????inc(j); ????????????if j >= i then ???????????? done := True; ???????? end; ???? until done; ????end; s := ''; for i := low(i1) to high(i1) do ????s := s IntTostr(i1[i]) ','; s := s Chr(13); for i := low(i2) to high(i2) do ????s := s IntTostr(i2[i]) ','; showmessage(s); end; </textarea><br /> 謝謝榮尊會員教導
i1 : array[1..6] of integer = (20,21,22,21,20,25); ----->倘若把 ( ) 括號內數字轉換成 字串變數，是否等於
可以任一6個號碼???

謝謝尊榮會員解決問題！
i1 : array[1..6] of integer = (20,21,22,21,20,25);
請問 假如(20,21,22,21,20,25) 括號內的號碼是不確定的， 程式要增加那段，或是改變那裡及是否要在var加對應變數？請麻煩再教導小弟OK???

<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Button1Click(Sender: TObject); var i1,i2 : array[1..6] of integer; i,j : Integer; done : Boolean; s: String; begin Randomize(); for i := 1 to 6 do begin i1[i] := Random(10); end; i2[1] := i1[1]; for i := low(i1) 1 to high(i1) do begin i2[i] := i1[i]; done := False; j := 1; repeat if i2[j] = i2[i] then begin i2[i] := i2[i] 1; j := 1; end else begin inc(j); if j >= i then done := True; end; until done; end; s := ''; for i := low(i1) to high(i1) do s := s IntTostr(i1[i]) ','; s := s Chr(13); for i := low(i2) to high(i2) do s := s IntTostr(i2[i]) ','; showmessage(s); end; </textarea>

------
Fishman

謝謝尊榮會員不吝指導....非常感謝您
小弟的意思是要( )括號內的號碼由，自己程式控制所選定的 6 個號碼，傳入陣列變數，然後再由你所撰寫那段去判斷 6 個號碼不能有重覆，若重覆自動加 1 是這個意圖，====>>請原諒小弟沒說清楚<<=======
例如：自撰程式 篩選出 6 個號碼 12 22 22 24 24 25 把這 6 個號碼 copy 到 陣列變數‧
============>>以上問題是否可以再度請教 尊榮會員??? 謝謝！

要改成 自己程式控制所選定的 6 個號碼，傳入陣列變數 建議如下
將
//Randomize();
//for i := 1 to 6 do
// begin
// i1[i] := Random(10);
// end;
改成
i1[1]:=自選號1;
i1[2]:=自選號2;
i1[3]:=自選號3;
i1[4]:=自選號4;
i1[5]:=自選號5;
i1[6]:=自選號6;

------
才疏學淺

感謝 Fatmoon1 提供解決問題 也非常感謝 尊榮會員 先前教導
問題總算 ok 了 小弟會再努力向前學習