Delphi XE XML信息的读取

<?xml version="1.0" encoding="utf-"?>

<ConString>
  <Item>
    <Name/>
    <Type>C</Type>
    <Value>
      <Option></Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>C</Type>
    <Value>
      <Option></Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>C</Type>
    <Value>
      <Option></Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>C</Type>
    <Value>
      <Option></Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>C</Type>
    <Value>
      <Option></Option>
      <Option></Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>C</Type>
    <Value>
      <Option>后门上车踏板L</Option>
      <Option>后门上车踏板L</Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>C</Type>
    <Value>
      <Option>CW733538</Option>
      <Option>CW733538</Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>N</Type>
    <Value>
      <Option></Option>
      <Option></Option>
    </Value>
  </Item>
  <Item>
    <Name/>
    <Type>N</Type>
    <Value>
      <Option></Option>
      <Option></Option>
    </Value>
  </Item>
</ConString>

以上为XML信息，如何读取Option后的内容呢？

procedure TMainForm.ReadXml(Node: IXMLNode; var Params: string);
var
  NodeList: IXMLNodeList;
  strName: string;
  i: Integer;
begin
  if not Node.HasChildNodes then
    Exit;
  NodeList := Node.ChildNodes;
  for i :=  to NodeList.Count -  do
  begin
    strName := NodeList[i].NodeName;
    if NodeList[i].IsTextElement then //如果是元素
    begin
      if NodeList[i].NodeName = 'Option' then
        Params := Params + NodeList[i].NodeValue + ##;
    end
    else if NodeList[i].HasChildNodes then //如果有子节点
    begin
      ReadXml(NodeList[i], Params);
    end;
  end;
end;

procedure TMainForm.btn4Click(Sender: TObject);
var
  node: IXMLNode;
  ParamsStr: string;
var
  LDocument: IXMLDocument;
var
  Paramslist: TStringList;
begin
  LDocument := TXMLDocument.Create(nil);
  LDocument.LoadFromXML(mmoxml.Text);
  node := LDocument.DocumentElement;

  ReadXml(node, ParamsStr);
  Paramslist := TStringList.Create;
  try
    Paramslist.Text := ParamsStr;   //把数据传成数组
    ShowMessage(Paramslist.Text);
  finally
    Paramslist.Free;
  end;
end;

最后，看一下运行结果：