var c:TClientDataSet ;
c:=TClientDataSet.Create(nil);
c.Filtered :=false;
c.Filtered :=true;c.Open;
c.post;
c.SaveToFile('c:\123.cds');//这个文件还是原来的内容，而不是筛选好的结果
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

編輯記錄

Saves a client dataset data to an external file.

procedure SaveToFile(const FileName: string);

Description

Call SaveToFile to write a client dataset data to an external file for later use by this or other client datasets. FileName is the name of the external file to use. If the file already exists, its current contents are overwritten.

根據原文的說明, 我猜 data 是不受 filter 影響, 所以 copy 出來還是全部的 data

急得話, 可以寫個迴圈, 筆數不多時, 效能也還好, 下面這段, 您可以參考, 僅是寫出來大意, 您再自己修一下

var
cdsNew : TClientDataset ;
i : integer;
fieldName : string ;
begin
cdsNew := TClientDataset.Create(application);
cdsNew.FieldsDef.Assign(ClientDataSet1.FieldByName('type').AsString = 'XX' then
begin
cdsNew.Append;
for i := 0 to (cdsNew.FieldCount-1) do
begin
fieldName := cdsNew.Fields[i].FieldName ;
cdsNew.FieldByName(fieldName).Value := ClientDataSet1.FieldByName(我筛选出了一些结果，想把他们单独保存为一个文件，但是不管怎么弄，都不行，急死我了。谁能帮帮我？代码如下

[code delphi]
begin
c.Data :=ClientDataSet1.Data ;
c.Filter :='类型=' QuotedStr('XX') ;
c.edit;
c.MergeChangeLog ;
c.SaveToFile('c:\123.cds');//这个文件还是原来的内容，而不是筛选好的结果
[/code]

編輯記錄

谢谢大大，但我是的记录有1W条，看起来就有点问题了。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

搞定了，加了个DisableControls 和 EnabledControls.就可以减少刷新。再次感谢楼上大大。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

不客氣