Wrong Number of perimeters error

[captian jaster]

Code: [Select]

Procedure AddXMLParent(var XMLDoc:TXMLDocument;  const MakeElement:String;
AddAttr:String);
BEGIN
  Nodes.RootNode := XMLDoc.DocumentElement;
  Nodes.ParentNode := XMLDoc.CreateElement(MakeElement);
  TDOMElement(Nodes.ParentNode).SetAttribute(AddAttr);
  Nodes.RootNode.AppendChild(Nodes.ParentNode);
END;


Code: [Select]

Procedure AddXMLChild(var XMLDoc:TXMLDocument; const AddElement:String;
ChildText:String; AddAttr:String);
BEGIN
 Nodes.ParentNode := XMLDoc.CreateElement(AddElement);
 TDOMElement(Nodes.ParentNode).SetAttribute(AddAttr);
 Nodes.ChildNode := XMLDoc.CreateTextNode(ChildText);
 Nodes.ParentNode.AppendChild(Nodes.ChildNode);
 Nodes.RootNode.ChildNodes.Item[0].AppendChild(Nodes.ParentNode);
END;

it says

Wrong Number Of Perimeters called for SetAttribute

Whats Wrong?

[paweld]

SetAttribute require two parameters: Name and Value

http://wiki.lazarus.freepascal.org/XML_Tutorial

Best regards
paweld