參考 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;