請問該如何做讓值從大到小或從小到大 |
尚未結案
|
vampire
一般會員 發表:3 回覆:0 積分:0 註冊:2003-10-21 發送簡訊給我 |
|
aquarius
資深會員 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
|
liorex
初階會員 發表:19 回覆:60 積分:32 註冊:2002-08-20 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
引言: 如果我的值不是給好的 列如說 x=y z 算出來的值我要讓他大小排列 請問該如何做讓x從大到小或從小到大 請順便告知該程式如何撰寫 ps 此程式只能於報表中的前端做程式修改 無法宣告列如var等宣告函數vampire 你好 : 你是要將 x 存到 ? Array 嗎 ? 上一篇問題已有用 TStringList 或 TList 的程式範例了. 每算出一個 x 的值, 便加到 TStringList 或 TList, 然後隨時都可以叫用 Sort Method, 這樣運用上有困難嗎 ? 如果你希望用 Array, 土法煉鋼的排序, 也有許多的計算機概論書籍, 可以看看, 自己做做看, 會有很多收穫的...加油 ! 另外, 你 class="code"> procedure TForm1.Button1Click(Sender: TObject); var x: array of integer; c: integer; procedure Sort(var s : array of integer; Asc : Boolean); var i,j,Temp : integer; change : Boolean; begin for i := 0 to High(s) do begin for j := i 1 to High(s) do begin change := False; if Asc then change := (s[j] |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |