如果我的值不是給好的 列如說 x=y z 算出來的值我要讓他大小排列 請問該如何做讓x從大到小或從小到大 請順便告知該程式如何撰寫 ps 此程式只能於報表中的前端做程式修改 無法宣告列如var等宣告函數 發表人 - vampire 於 2003/10/22 14:39:08

引言: 如果我的值不是給好的 列如說 x=y z 算出來的值我要讓他大小排列 請問該如何做讓x從大到小或從小到大

全部算好放到陣列中, 再做排序呀!! ...Aquarius

我與樓上的前被看法相同 但是我覺得可以將x轉形成string 然後放在stringlist 中sort,這樣可以 不用自己寫sort 的功能 ---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

引言: 如果我的值不是給好的 列如說 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]s[i]); if change then begin Temp := s[i]; s[i] := s[j]; s[j] := Temp; end; end; end; end; begin c := 9; SetLength(x, c); for c := 0 to High(x) do x[c] := Random(100); Sort(x,True); // Show Result 順排 Listbox1.Items.Clear; for c := 0 to High(x) do Listbox1.Items.Add(inttostr(x[c])); Sort(x,False); // Show Result 逆排 Listbox2.Items.Clear; for c := 0 to High(x) do Listbox2.Items.Add(inttostr(x[c])); end; 發表人 - Mickey 於 2003/10/22 20:58:18