TXMLDocumentIsEmptyDoc (Object Pascal)

From Appmethod Code Examples
Jump to: navigation, search

Description

The following example uses the IsEmptyDoc function.

Code

procedure Test_IsEmptyDoc;
var
  LDocument: IXMLDocument;
begin
  LDocument := TXMLDocument.Create(nil);
  LDocument.Active := True;

  { Should display that the document is empty. }
  if LDocument.IsEmptyDoc then
    Writeln('Document is empty.');
end;

Uses