diff --git a/doc/000058.html b/doc/000058.html index 38794d0..bb78287 100644 --- a/doc/000058.html +++ b/doc/000058.html @@ -32,7 +32,7 @@ ADoc: TNativeXml; begin Memo1.Lines.Clear; - ADoc := TNativeXml.Create; + ADoc := TNativeXml.Create(nil); try ADoc.LoadFromFile(Edit1.Text); ADoc.XmlFormat := xfReadable; @@ -46,4 +46,4 @@ Note that ADoc.XmlFormat := xfReadable will make sure that the document is listed in readable form (with carriage returns and indents). - \ No newline at end of file + diff --git a/doc/000061.html b/doc/000061.html index f8849dd..4bd600e 100644 --- a/doc/000061.html +++ b/doc/000061.html @@ -33,7 +33,7 @@ ADoc: TNativeXml; begin Memo1.Lines.Clear; - ADoc := TNativeXml.Create; + ADoc := TNativeXml.Create(nil); try ADoc.LoadFromFile(Edit1.Text); if assigned(ADoc.Root) then with ADoc.Root do @@ -51,4 +51,4 @@ - \ No newline at end of file + diff --git a/doc/000062.html b/doc/000062.html index 834e279..66be286 100644 --- a/doc/000062.html +++ b/doc/000062.html @@ -33,7 +33,7 @@ ADoc: TNativeXml; begin Memo1.Lines.Clear; - ADoc := TNativeXml.Create; + ADoc := TNativeXml.Create(nil); try ADoc.OnNodeNew := DoNodeNew; ADoc.OnNodeLoaded := DoNodeLoaded; @@ -86,4 +86,4 @@ - \ No newline at end of file + diff --git a/doc/000063.html b/doc/000063.html index 95b01bd..39601ea 100644 --- a/doc/000063.html +++ b/doc/000063.html @@ -44,6 +44,7 @@ begin // Create new document with a rootnode called "Root" ADoc := TNativeXml.CreateName('Root'); + ADoc.Charset := 'windows-1252'; try // Add a subnode with name "Customer" with ADoc.Root.NodeNew('Customer') do begin @@ -66,4 +67,4 @@ - \ No newline at end of file + diff --git a/doc/000064.html b/doc/000064.html index 9001dbd..07dd111 100644 --- a/doc/000064.html +++ b/doc/000064.html @@ -79,7 +79,7 @@
 function CreateXMLAndLoadFromFile(AFilename: string): TNativeXml;
 begin
-  Result := TNativeXml.Create;
+  Result := TNativeXml.Create(nil);
   Result.LoadFromFile(AFilename);  
 end;
 
@@ -90,7 +90,7 @@
 function CreateXMLAndLoadFromStream(S: TStream): TNativeXml;
 begin
-  Result := TNativeXml.Create;
+  Result := TNativeXml.Create(nil);
   Result.LoadFromStream(S);  
 end;
 
@@ -98,4 +98,4 @@ - \ No newline at end of file +