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;

    本文转自 OldHawk  博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/06/12/780939.html ，如需转载请自行联系原作者