var
xmlDoc: IXMLDOMDocument2;
procedure TForm1.Button1Click(Sender: TObject);
begin
if xmlDoc = nil then
begin
xmlDoc := CoDOMDocument40.Create;
//初始化 实例
xmlDoc.loadXML(testXML);
//得到 xml 内容
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Assigned(xmlDoc) then
begin
Edit1.Text := IntToStr(xmlDoc.firstChild.childNodes.length);
// 统计节点数
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
ItemIndex: Integer;
begin
if Assigned(xmlDoc) then
begin
ItemIndex := xmlDoc.firstChild.childNodes.length;
xmlDoc.firstChild.removeChild(xmlDoc.firstChild.childNodes.item[ItemIndex-1]);
// 使用 removeChild 方法 删除 节点
end;
end;
兄台还有什么不明白的, 还是我理解题意错误。