uxml.dfm

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

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 839
  Height = 382
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object btnShowNode1: TButton
    Left = 33
    Top = 10
    Width = 75
    Height = 25
    Caption = #36941#21382#33410#28857'1'
    TabOrder = 0
    OnClick = btnShowNode1Click
  end
  object Memo1: TMemo
    Left = 13
    Top = 45
    Width = 377
    Height = 294
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object btnShowNode2: TButton
    Left = 121
    Top = 10
    Width = 75
    Height = 25
    Caption = #36941#21382#33410#28857'2'
    TabOrder = 2
    OnClick = btnShowNode2Click
  end
  object btnEditNode1: TButton
    Left = 209
    Top = 10
    Width = 75
    Height = 25
    Caption = #20462#25913#33410#28857'1'
    TabOrder = 3
    OnClick = btnEditNode1Click
  end
  object btnEditNode2: TButton
    Left = 297
    Top = 10
    Width = 75
    Height = 25
    Caption = #20462#25913#33410#28857'2'
    TabOrder = 4
    OnClick = btnEditNode2Click
  end
  object btnAddNode: TButton
    Left = 424
    Top = 10
    Width = 75
    Height = 25
    Caption = #22686#21152#33410#28857'1'
    TabOrder = 5
    OnClick = btnAddNodeClick
  end
  object Memo2: TMemo
    Left = 416
    Top = 45
    Width = 401
    Height = 294
    ScrollBars = ssVertical
    TabOrder = 6
  end
  object btnDelNode: TButton
    Left = 512
    Top = 10
    Width = 75
    Height = 25
    Caption = #21024#38500#33410#28857'1'
    TabOrder = 7
    OnClick = btnDelNodeClick
  end
  object btnViewXml: TButton
    Left = 600
    Top = 10
    Width = 81
    Height = 25
    Caption = #26597#30475'XML'#25991#20214
    TabOrder = 8
    OnClick = btnViewXmlClick
  end
  object XMLDocument1: TXMLDocument
    Options = [doNodeAutoCreate, doNodeAutoIndent, doAttrNull, doAutoPrefix, doNamespaceDecl, doAutoSave]
    Left = 200
    Top = 80
    DOMVendorDesc = 'MSXML'
  end
end