Skip to content

chore(html): Fix HTML doc examples to use TNativeXml.Create(nil) #10

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
dddwwwbbb wants to merge 5 commits into
base: master
Choose a base branch
from
Open

chore(html): Fix HTML doc examples to use TNativeXml.Create(nil) #10

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
2d6112d
Update 000058.html
dddwwwbbb Aug 6, 2025
8ee6940
Update 000061.html
dddwwwbbb Aug 6, 2025
0209120
Update 000062.html
dddwwwbbb Aug 6, 2025
0c7e64e
Update 000064.html
dddwwwbbb Aug 6, 2025
8ffb142
Update 000063.html for windows-1252
dddwwwbbb Aug 8, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions doc/000058.html
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -32,7 +32,7 @@
ADoc: <A HREF="000155.html" CLASS="link">TNativeXml</A>;
begin
Memo1.Lines.Clear;
ADoc := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>;
ADoc := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>(nil);
try
ADoc.LoadFromFile(Edit1.Text);
ADoc.XmlFormat := xfReadable;
Expand All @@ -46,4 +46,4 @@
Note that <I>ADoc.XmlFormat := xfReadable</I> will make sure that the document is listed in readable form (with carriage returns and indents).</DIV>
</DIV>

</BODY></HTML>
</BODY></HTML>
4 changes: 2 additions & 2 deletions doc/000061.html
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@
ADoc: <A HREF="000155.html" CLASS="link">TNativeXml</A>;
begin
Memo1.Lines.Clear;
ADoc := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>;
ADoc := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>(nil);
try
ADoc.LoadFromFile(Edit1.Text);
if assigned(ADoc.Root) then with ADoc.Root do
Expand All @@ -51,4 +51,4 @@
</DIV>
</DIV>

</BODY></HTML>
</BODY></HTML>
4 changes: 2 additions & 2 deletions doc/000062.html
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@
ADoc: <A HREF="000155.html" CLASS="link">TNativeXml</A>;
begin
Memo1.Lines.Clear;
ADoc := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>;
ADoc := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>(nil);
try
ADoc.OnNodeNew := DoNodeNew;
ADoc.OnNodeLoaded := DoNodeLoaded;
Expand Down Expand Up @@ -86,4 +86,4 @@
</DIV>
</DIV>

</BODY></HTML>
</BODY></HTML>
3 changes: 2 additions & 1 deletion doc/000063.html
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -44,6 +44,7 @@
begin
// Create new document with a rootnode called &quot;Root&quot;
ADoc := <A HREF="000172.html" CLASS="link">TNativeXml.CreateName</A>('Root');
ADoc.Charset := 'windows-1252';
try
// Add a subnode with name &quot;Customer&quot;
with ADoc.Root.NodeNew('Customer') do begin
Expand All @@ -66,4 +67,4 @@
</DIV>
</DIV>

</BODY></HTML>
</BODY></HTML>
6 changes: 3 additions & 3 deletions doc/000064.html
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -79,7 +79,7 @@
<PRE CLASS="code">
function CreateXMLAndLoadFromFile(AFilename: string): <A HREF="000155.html" CLASS="link">TNativeXml</A>;
begin
Result := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>;
Result := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>(nil);
Result.LoadFromFile(AFilename);
end;
</PRE></DIV>
Expand All @@ -90,12 +90,12 @@
<PRE CLASS="code">
function CreateXMLAndLoadFromStream(S: TStream): <A HREF="000155.html" CLASS="link">TNativeXml</A>;
begin
Result := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>;
Result := <A HREF="000170.html" CLASS="link">TNativeXml.Create</A>(nil);
Result.LoadFromStream(S);
end;
</PRE></DIV>
</DIV>
</DIV>
</DIV>

</BODY></HTML>
</BODY></HTML>