TClientDataSet 逆向排序 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
參考
TClientDataSet 讀取XML是否可排序
http://delphi.ktop.com.tw/topic.php?topic_id=21797 該篇裡所提到的ClientDataset1.indexfieldname 屬性,僅適用於順向排序
那逆向排序該如何實現呢? 要runtime 產生index
經ccchen版主 與 阿子副站長指點,小弟我分享一下心得,可參考,以備不時之需
實作範例如下:
if ClientDataSet1.IndexName <> '' then ClientDataSet1.deleteIndex(ClientDataSet1.indexname); ClientDataSet1.AddIndex('NewDateIndex', 'NewDate', [ixDescending], '', '', 0); ClientDataSet1.IndexName := 'NewDateIndex'; ClientDataSet1.IndexDefs.Update; ClientDataSet1.First ; while not ClientDataSet1.eof do begin root := TreeView1.Items.Add(TreeView1.TopItem, ClientDataSet1.Fields.Fields[0].AsString); TreeView1.Items.AddChildFirst(root, ClientDataSet1.Fields.Fields[1].AsString); ClientDataSet1.next; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |