100分求翻译一段java代码，翻译成delphi可以用的

Question

 private StringBuffer xml2Table(String s)
    {
        StringBuffer stringbuffer = new StringBuffer();
        Object obj = null;
        try
        {
            DocumentBuilderFactory documentbuilderfactory = DocumentBuilderFactory.newInstance();
            DocumentBuilder documentbuilder = documentbuilderfactory.newDocumentBuilder();
            Document document = documentbuilder.parse(new BufferedInputStream(new ByteArrayInputStream(s.getBytes("gb2312"))));
            org.w3c.dom.Element element = document.getDocumentElement();
            if(element.getNodeType() == 1 && "root".equals(element.getNodeName()))
                stringbuffer.append("代码。");
        }
        return stringbuffer;
    }

Answer 1

看一下java的XML和Delphi的XML相关书籍就明白了。

Answer 2

  function xml2Table(s: string): TStringlist;
  var
    document: TDOMDocument;
    element: IXMLDOMElement;
  begin
    Result := TStringList.Create;
    document := TDOMDocument.Create(nil);
    document.DefaultInterface.load(s);
   element := document.documentElement;
    if (element.nodeType = 1) and (element.nodeName = 'root') then
     Result.Add('代码。');
  end;