ClientDataSet exportando xml

Question

Tenho ClientDataSet onde fa�o alguns filtros do tipo(Filter = �CAMPO1 = �A��) mas na hora de exporta ele pra XML usando savetofile, ele ignora os filtros trazendo todos os registros do ClientDataSet no XML.
Alguem sabe como fa�o para exportar somente os dados Filtrados do ClientDataSet.

Marco Salles · Answer

use um cds auxiliar , cujo FileName seje o mesmo do Cds que voce quer exportar

//Filtro cds.Filter:=�CAMPO1 =�+ QuotedStr(�A�); cds.Filtered:=True; //Abrir o CdsAux e �Limpar� cdsAux.open; cdsAux.EmptyDataSet; //Carregar valores do Filtro While not cds.Eof do begin cds1.Append; cdsAux.FieldByName(�cAMPO�).asstring:= cds.FieldByName(�cAMPO�).asstring; //Outrso campos...etc cdsAux.Post; cds.Next; end; //Slavar no Arquivo Xml cdsAux.SaveToFile(�c:Caminho.xml�);

Marco Salles · Answer

ontem quando eu postei , eu percebi um equ�voco:

use um cds auxiliar , [b:bd34ab461c]cujo FileName seje o mesmo [/b:bd34ab461c]do Cds que voce quer exportar

o problema � que a istru��o cdsAux.EmptyDataSet; limpara o arquivo.. e voce perdera todos os dados...

Ent�o sugiro a utiliza��o de um arq Tempor�rio

procedure TForm1.Button1Click(Sender: TObject); begin cds.SaveToFile(�CaminhoDo ArquivoTemporario.xml�); cds.filtered:=False; cds.Filter:=�SeuCampo =�+QuotedStr(edit1.Text); cds.Filtered:=True; cdsAux.FileName:=��CaminhoDo ArquivoTemporario.xml�; cdsAux.Open; cdsAux.EmptyDataSet; cds.first; While not cds.Eof do begin cdsAux.Append; cdsAux.FieldByName(�Campo1�).asstring:=cds.FieldByName(�Campo1�).asstring; cdsAux.FieldByName(�Campo2�).asstring:=cds.FieldByName(�Campo2�).asstring; //demais campos... cdsAux.Post; cds.Next; end; cdsAux.SaveToFile(�CaminhoDoArquivoTemporario.xml�); end;

pelos testes preliminares que eu fiz , este algritmo funciona... So n�o deve funcionar para campos do tipo Incrementados.. Pois esses campos n�o sa� ReadOnly.. O que significa que eles n�o s�o passiveis de atribui�oes...

F�rum ClientDataSet exportando xml #332416