From 2d6112defba0c3b13f8e89cfda30fb438187efad Mon Sep 17 00:00:00 2001 From: dddwwwbbb Date: Wed, 6 Aug 2025 13:25:54 -0500 Subject: [PATCH 1/5] Update 000058.html Create to Create(nil) per NativeXml.pas constructor Create(AOwner: TComponent) --- doc/000058.html | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 + From 8ee694050f1fbeea3e3949a87915a4e11b705ee4 Mon Sep 17 00:00:00 2001 From: dddwwwbbb Date: Wed, 6 Aug 2025 13:33:02 -0500 Subject: [PATCH 2/5] Update 000061.html Create to Create(nil) per NativeXml.pas constructor Create(AOwner: TComponent) --- doc/000061.html | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 + From 02091205ae960d7e11f9193fd52b6f404df46ed6 Mon Sep 17 00:00:00 2001 From: dddwwwbbb Date: Wed, 6 Aug 2025 13:33:52 -0500 Subject: [PATCH 3/5] Update 000062.html Create to Create(nil) per NativeXml.pas constructor Create(AOwner: TComponent) --- doc/000062.html | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 + From 0c7e64e7953dbd497d8eea2bb385ce7a11d77d2c Mon Sep 17 00:00:00 2001 From: dddwwwbbb Date: Wed, 6 Aug 2025 13:35:48 -0500 Subject: [PATCH 4/5] Update 000064.html Create to Create(nil) per NativeXml.pas constructor Create(AOwner: TComponent) --- doc/000064.html | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 + From 8ffb142fe6d11aaaf6f08e851db45b0b0faacd71 Mon Sep 17 00:00:00 2001 From: dddwwwbbb Date: Fri, 8 Aug 2025 11:42:12 -0500 Subject: [PATCH 5/5] Update 000063.html for windows-1252 Default encoding="utf-8" but example .xml file shows encoding="windows-1252". Set Charset accordingly, analogous to ExternalEncoding := seAnsi; ExternalCodepage := 1252;. --- doc/000063.html | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 +