TClientDataSet[18]: OptionalParam

uses　XMLDoc;　
　
procedure　TForm1.FormCreate(Sender:　TObject);　
begin　
　with　ClIEntDataSet1　do　begin　
　　FIEldDefs.Add('Text'　,　ftString,　12);　
　　FIEldDefs.Add('Num',　ftInteger);　
　　CreateDataSet;　
　　AppendRecord(['ABC',　123]);　
　end;　
　Memo1.Text　:=　FormatXMLData(ClIEntDataSet1.XMLData);　
end;　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　ClIEntDataSet1.SetOptionalParam('ParamX',　12345);　
　Memo1.Text　:=　FormatXMLData(ClIEntDataSet1.XMLData);　
　ShowMessage(ClIEntDataSet1.GetOptionalParam('ParamX'));　
end;