实例——转换xml文档.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

      <?xml version="1.0" standalone="yes" ?> 
  <DATAPACKET Version="2.0">
  <METADATA>
 <FIELDS>
      //描述字段名称，数据类型和长度
  <FIELD attrname="Xm" fieldtype="string" WIDTH="10" /> 
  <FIELD attrname="Nl" fieldtype="i2" /> 
  <FIELD attrname="Jg" fieldtype="string" WIDTH="10" /> 
  <FIELD attrname="Xb" fieldtype="string" WIDTH="2" /> 
  <FIELD attrname="Cssj" fieldtype="date" /> 
  <FIELD attrname="Gzsj" fieldtype="date" /> 
  <FIELD attrname="Dw" fieldtype="string" WIDTH="30" /> 
  <FIELD attrname="Wh" fieldtype="string" WIDTH="8" /> 
  </FIELDS>
  <PARAMS LCID="1033" /> 
  </METADATA>
  <ROWDATA>
    //描述记录中每个字段的值
  <ROW Xm="liming" Nl="21" Jg="beijin" Xb="na" Cssj="19800101" Gzsj="20020810" Dw="kemaogongsi" Wh="daxue" /> 
  <ROW Xm="lijin" Nl="28" Jg="hebei" Xb="nv" Cssj="19740608" Gzsj="19960320" Dw="wangluozhixungongsi" Wh="yanjiu" /> 
  </ROWDATA>
  </DATAPACKET>