Delphi中将XML文件数据装入DataSet

//定义
    XmlDataSet: TClientDataSet;
    XmlTrans: TXMLTransform;
//数据读取
    XmlTrans:=TXMLTransform.Create(self);
    XmlTrans.SourceXmlFile:=ExtractFilePath(Application.ExeName)+'report.xml';
    XmlTrans.TransformationFile:=ExtractFilePath(Application.ExeName)+'report.xtr';//用xml mapper工具根据xml文件生成的文件
    XmlDataSet:=TClientDataSet.Create(self);
    XmlDataSet.XMLData:=XmlTrans.Data;
    XmlDataSet.IndexDefs.Add('noasc','no',[ixPrimary]);
    XmlDataSet.IndexDefs.Add('lastpricedesc','lastprice',[ixDescending]);
//Filter过滤
    XmlDataSet.Filter:='bargainflag=1 and lasttype=0';
    XmlDataSet.Filtered:=true;
    if self.RzRadioButtonLastprice.Checked then
      XmlDataSet.IndexName:='lastpricedesc'
    else
      XmlDataSet.IndexName:='noasc';
//取记录值
  XmlDataSet.RecNo:=frxUserDataSet4.RecNo+1;
  Value:=XmlDataSet.FieldByName(FieldName).AsString;