4.1.11.1.8 Example

Example (OpenXMLDocument, FreeXMLDocument)

var i, j:integer;
  b:boolean;
  v:variant;
  XMLdoc:TScriptXMLDocument;
  RootElement :TScriptXMLElement;
  errormsg:string;
begin
  XMLdoc:=OpenXMLDocumentExt(ProjectDir + 'my.xml', errormsg); 
  if XMLdoc = nil then begin
    ShowError(errormsg);
    exit;
  end;
  RootElement:=XMLdoc.GetRootElement;
    {...}
  FreeXMLElement(RootElement);
  FreeXMLDocument(XMLdoc);  
end.

See also:

OpenXMLDocument; OpenLockedXMLDocument; OpenXMLDocumentExt; OpenXMLDocumentFromString; OpenXMLDocumentFromStringExt; FreeXMLDocument; GetAttributeValueFromXMLDocument

Example