数据排序问题

[cbcool]

有一个ClientDataSet1(TClientDataSet)里面有字段F1，F2，F3都是整型，记录数为10或更多
我想对这个ClientDataSet1分别按F1、F2、F3进行排序，请问怎么样实现？
说明：
ClientDataSet1里的数据是一条一条加进去的，所以不可能进行对其数据源的SQL语句操作来排序。

[lwk_hlj]

Sort

[梅青松]

转贴
procedure Tmoduleform.DBGrid1TitleClick(Column: TColumn);
begin
if clientdataset1.IsEmpty then
exit;
clientdataset1.DisableControls;
if indexname='降序' then //按升序排列
begin
if clientdataset1.IndexName='Indexname' then
clientdataset1.DeleteIndex('Indexname');
clientdataset1.AddIndex('Indexname',column.FieldName,[],column.FieldName,'',0);
ClientDataSet1.IndexName:='Indexname';
indexname:='升序';
end
else //按降序排列
begin
if clientdataset1.IndexName='Indexname' then
clientdataset1.DeleteIndex('Indexname');
clientdataset1.AddIndex('Indexname',column.FieldName,[],'','',0);
ClientDataSet1.IndexName:='Indexname';
indexname:='降序';
end;
clientdataset1.EnableControls;
end;

[jian23cn]

楼主可以用第三方控件DxDBGrid，轻松设置就可以排序。
或者用sort进行排序。