email.xdb

用Delphi对XML进行增删改操作示例

<?xml version="1.0"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xdb="http://www.borland.com/schemas/delphi/6.0/XMLDataBinding">
  <xs:element name="Note" type="NoteType"/>
  <xs:complexType name="NoteType"><xs:annotation>
      <xs:appinfo xdb:docElement="Note"/>
    </xs:annotation>
    
    <xs:sequence>
      <xs:element name="Heading" type="xs:string"/>
      <xs:element name="From" type="FromType"/>
      <xs:element name="To" type="ToType"/>
      <xs:element name="Body" type="xs:string"/>
    </xs:sequence>
  </xs:complexType>
  <xs:complexType name="FromType">
    <xs:sequence>
      <xs:element name="Contact" type="ContactType" maxOccurs="unbounded"/>
    </xs:sequence>
  </xs:complexType>
  <xs:complexType name="ContactType">
    <xs:sequence>
      <xs:element name="Name" type="xs:string"/>
      <xs:element name="Email" type="xs:string"/>
    </xs:sequence>
  </xs:complexType>
  <xs:complexType name="ToType">
    <xs:sequence>
      <xs:element name="Contact" type="ContactType" maxOccurs="unbounded"/>
    </xs:sequence>
  </xs:complexType>
</xs:schema>