<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); var i,j,Temp:integer; list:array[1..6] of integer; s: String; begin list[1]:= STRTOINT(Edit1.Text); list[2]:= STRTOINT(Edit2.Text); list[3]:= STRTOINT(Edit3.Text); list[4]:= STRTOINT(Edit4.Text); list[5]:= STRTOINT(Edit5.Text); list[6]:= STRTOINT(Edit6.Text); begin s:=''; for i := low(list) to high(list)-1 do begin for j := low(list) to high(list)-1 do begin if List[j] > List[j 1] then begin Temp := List[j]; List[j] := List[j 1]; List[j 1] := Temp; end; s := s IntTostr(List[j 1]) ','; Label1.Caption := s; end; end; end; end; end.</textarea><br /> 請教 各位 delphi 前輩 小弟 運用這種方式 排序對嗎??

K1086,您好
將
s := s IntTostr(List[j 1]) ',';
Label1.Caption := s;
移掉
在 比較 的 for .. for 之外 加上
Label1.Caption:='';
for i := low(list) to high(list) do
Label1.Caption := Label1.Caption IntTostr(List[i]) ',';
再想一想，或許就能調整寫出你覺得更適合的語句了..
重點在於..你總得要讓它先比完吧？

<textarea class="delphi" rows="10" cols="60" name="code">list[1]:= STRTOINT(Edit1.Text); list[2]:= STRTOINT(Edit2.Text); list[3]:= STRTOINT(Edit3.Text); list[4]:= STRTOINT(Edit4.Text); list[5]:= STRTOINT(Edit5.Text); list[6]:= STRTOINT(Edit6.Text); s:=''; for i := low(list) to high(list)-1 do begin for j := low(list) to high(list)-1 do begin if List[j] > List[j 1] then begin Temp := List[j]; List[j] := List[j 1]; List[j 1] := Temp; end; end; end; Label1.Caption:=''; for i := low(list) to high(list) do Label1.Caption := Label1.Caption IntTostr(List[i]) ','; </textarea>

我也在努力學習中，若有錯謬請見諒 ~

------
我也在努力學習中，若有錯謬請見諒。

編輯記錄

倒不是想強迫你給分還是怎樣，不過我覺得前一篇taishyang大給了你不管是答案還是方向，
結案成缺席還是有點讓人難以置信吧(？)

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

我沒有給答案,只是說要怎麼PO程式碼而已:P
希望K1086只是不小心按到[缺席]

編輯記錄

我覺得很納悶，不知道前面小弟所附上的範例K兄如何理解的？
http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=88537
將程式模組化是化簡複雜程式碼的基本，前面範例已經將氣泡排序法的Procedure獨立出來了，你的程式碼卻又硬生生的將它又拆開納入你的程式中，結果又沒將排序的迴圈正確處理以致於排序沒有完成，結果當然不正確！還是養成儘量把程式碼拆解為個別模組，這樣程式比較好維護不易發生錯誤，而且重用性也高！

我在回覆完後才看到【前篇】，雖然納悶為何會以 "缺席" 作結....
但轉念再想 ~
我喜歡這裡，原因很簡單，我在此受惠也希望回饋大家，雖然能力有限.. 但至少我付出了我的認同，看見好的人事物學習起來，看見不恰當的人事物就警惕自己不要覆轍 ~~ 所以，順其自然就好，沒得勉強的。
再說，學delphi的人與其它語言比例上，似乎仍有差距，上104一比較更明顯 希望大家共同努力 ~

------
我也在努力學習中，若有錯謬請見諒。

===================引 用 adonis 文 章===================
K1086,您好
將?
s := s IntTostr(List[j 1]) ',';
Label1.Caption := s;
移掉
在 比較 的 for .. for 之外 加上
Label1.Caption:='';
for i := low(list) to high(list) do
Label1.Caption := Label1.Caption IntTostr(List[i]) ',';
再想一想，或許就能調整寫出你覺得更適合的語句了..?
重點在於..你總得要讓它先比完吧？

<textarea class="delphi" rows="10" cols="60" name="code">list[1]:= STRTOINT(Edit1.Text); list[2]:= STRTOINT(Edit2.Text); list[3]:= STRTOINT(Edit3.Text); list[4]:= STRTOINT(Edit4.Text); list[5]:= STRTOINT(Edit5.Text); list[6]:= STRTOINT(Edit6.Text); s:=''; for i := low(list) to high(list)-1 do begin ????for j := low(list) to high(list)-1 do ????begin ???? if List[j] > List[j 1] then ???? begin ????????Temp := List[j]; ????????List[j] := List[j 1]; ????????List[j 1] := Temp; ???? end; ????end; end; Label1.Caption:=''; for i := low(list) to high(list) do ????Label1.Caption := Label1.Caption IntTostr(List[i]) ','; </textarea>

我也在努力學習中，若有錯謬請見諒 ~
===========>>>
感謝 adonis 您的指導，小弟又學習了一課！
===========>>>
真誠肺腑之言...
小弟雖然是delphi 初學者，但還是懂得如何做人處事，至於誤選__缺席__結案問題，造成大家責言，小弟百分百接受，同時借用本版面向所有前輩深深一鞠躬致歉！以後所有結案一定會慎重小心！謝謝大家...

不好意思,你的程式碼好像不對.
<textarea class="delphi" rows="10" cols="60" name="code">list[1]:= STRTOINT(Edit1.Text); list[2]:= STRTOINT(Edit2.Text); list[3]:= STRTOINT(Edit3.Text); list[4]:= STRTOINT(Edit4.Text); list[5]:= STRTOINT(Edit5.Text); list[6]:= STRTOINT(Edit6.Text); s:=''; for i := low(list) to high(list)-1 do //low(list)=1, high(list)=6 begin for j := i 1 to high(list) do //第i個與其後之數值比較 begin if List[i] > List[j] then //由小到大排列 begin Temp := List[i]; //交換 List[i] := List[j]; List[j] := Temp; end; end; end; Label1.Caption:=''; for i := low(list) to high(list) do Label1.Caption := Label1.Caption IntTostr(List[i]) ','; </textarea>
note: 未經測試,僅供參考...
note2:原來板主已經點出問題所在了...

編輯記錄