急！哪位大侠能否帮我把下列delphi的程序（与XML有关）转换成java程序？！谢了！

[Jerry_mm]

一个表转换器的实现：
Begin//OutXMLDoc (XML 的控件)
　OutXMLDoc.Active: = true;//初始化空的XML文档
　OutXMLDoc.Encoding: =’GB2312’: //设置字符集
　Root: = OutXMLDoc.AddChild (’图书目录’) ;
　if adoquery1. RecordCount> 0 then
　　for i: = 0 to adoquery1. recordcount- 1 do//循环取各个图书信息
　　begin
　 Parent_Node: = Root. AddChild (’图书’) ; //根结点后添加一个图书结点
　　Child_Node: = Parent Node.AddChild (’书号’) ;
　　Child_Node. Text: = dbedit1.Text; /设置书号的文本值
　　Child_Node: = Parent Node.AddCh ild (’书名’) ;
　　Chi1d_Node. Text: = dbedit2.Text;
　　Child_Node: = Parent Node. A ddCh ild (’价格’) ;
　　Child_Node. Text: = dbedit3.Text;
　　Child_Node: = Parent Node.AddChild (’出版社’) ;
　　Child_Node.Text: = dbedit4. Text;
　if not adoquery1.Eof then
　　adoquery1.Next; 　end;
　OutXMLDoc.SaveToFile (’Output.xm l’) ; //把组织好的XML文档存于Output. xml 文件中
　OutXMLDoc.Active: = fales; //钝化(关闭)OutXMLDoc
End;

[zjmoya]

顶……………………