LMDXML Tutorial - Revision history

Fduch at 12:35, 18 August 2017

2017-08-18T12:35:02Z

Fduch at 18:42, 20 October 2009

2009-10-20T18:42:05Z

Fduch at 18:34, 20 October 2009

2009-10-20T18:34:22Z

Fduch: /* Example 1. Creating and saving document */

2009-10-20T18:32:16Z

‎Example 1. Creating and saving document

Fduch at 16:19, 5 November 2008

2008-11-05T16:19:16Z

Fduch at 15:17, 5 November 2008

2008-11-05T15:17:24Z

Fduch at 12:25, 10 April 2008

2008-04-10T12:25:23Z

Fduch at 17:46, 29 February 2008

2008-02-29T17:46:30Z

Fduch at 15:18, 21 February 2008

2008-02-21T15:18:30Z

Fduch at 15:17, 21 February 2008

2008-02-21T15:17:31Z

@@ Line 3: / Line 3: @@
 == Example 1. Creating and saving document ==
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
   var
     aDoc: ILMDXmlDocument;
@@ Line 26: / Line 26: @@
     aDoc.Save('Test.xml');
   end;
-</pre>
+</syntaxhighlight>
 There is content of saved file:
-<pre class="brush:xml">
+<syntaxhighlight lang="xml">
   <?xml version="1.0" encoding="windows-1251"?>
   <base>
@@ Line 35: / Line 35: @@
     <elem2 a1="elem2 a1" a2="elem2 a2"/>
   </base>
-</pre>
+</syntaxhighlight>
 == Example 2. Reading and analyzing documents ==
 External xml file to parse. Test.xml
-<pre class="brush:xml">
+<syntaxhighlight lang="xml">
   <?xml version="1.0" encoding="window-1251"?>
   <root>
@@ Line 47: / Line 47: @@
     <elem2 a1="v1" a2="v2"> 2</elem2>
   </root>
-</pre>
+</syntaxhighlight>
-Delphi code <pre class="brush:delphi">
+Delphi code <syntaxhighlight lang="delphi">
   var
     aDoc: ILMDXmlDocument;
@@ Line 76: / Line 76: @@
     Memo1.Lines.Add(anElem2.GetAttr('a2'));
   end;
-</pre>
+</syntaxhighlight>
 == Example 3. It shows how to save structures to xml ==
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 type
      TSex =(sxMale, sxFemale);
@@ Line 162: / Line 162: @@
    LXMLLib.Save('library.xml');
 end;
-</pre>
+</syntaxhighlight>
 == Example 4. How to read XML with unknown structure an fill TTreeView with it ==
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 procedure XMLToTreeView(const AFileName, AOptElement, AOptAttr: String; ATreeView: TTreeView);
 var
@@ Line 200: / Line 200: @@
    FillTree(LXMLDoc.DocumentElement, nil);
 end;
-</pre>
+</syntaxhighlight>

@@ Line 28: / Line 28: @@
 </pre>
-There is content of saved file: <xml>
+There is content of saved file:
   <?xml version="1.0" encoding="windows-1251"?>
   <base>
@@ Line 34: / Line 35: @@
     <elem2 a1="elem2 a1" a2="elem2 a2"/>
   </base>
-</xml>
+</pre>
 == Example 2. Reading and analyzing documents ==
-External xml file to parse. Test.xml <xml>
+External xml file to parse. Test.xml
   <?xml version="1.0" encoding="window-1251"?>
   <root>
@@ Line 45: / Line 47: @@
     <elem2 a1="v1" a2="v2"> 2</elem2>
   </root>
-</xml>
+</pre>
 Delphi code <pre class="brush:delphi">

@@ Line 47: / Line 47: @@
 </xml>
-Delphi code <delphi>
+Delphi code <pre class="brush:delphi">
   var
     aDoc: ILMDXmlDocument;
@@ Line 74: / Line 74: @@
     Memo1.Lines.Add(anElem2.GetAttr('a2'));
   end;
-</delphi>
+</pre>
 == Example 3. It shows how to save structures to xml ==
-<delphi>
+<pre class="brush:delphi">
 type
      TSex =(sxMale, sxFemale);
@@ Line 160: / Line 160: @@
    LXMLLib.Save('library.xml');
 end;
-</delphi>
+</pre>
 == Example 4. How to read XML with unknown structure an fill TTreeView with it ==
-<delphi>
+<pre class="brush:delphi">
 procedure XMLToTreeView(const AFileName, AOptElement, AOptAttr: String; ATreeView: TTreeView);
 var
@@ Line 198: / Line 198: @@
    FillTree(LXMLDoc.DocumentElement, nil);
 end;
-</delphi>
+</pre>

@@ Line 3: / Line 3: @@
 == Example 1. Creating and saving document ==
-<delphi>
+<pre class="brush:delphi">
   var
     aDoc: ILMDXmlDocument;
@@ Line 26: / Line 26: @@
     aDoc.Save('Test.xml');
   end;
-</delphi>
+</pre>
 There is content of saved file: <xml>

@@ Line 160: / Line 160: @@
    LXMLLib.Save('library.xml');
 end;
 </delphi>

← Older revision	Revision as of 15:18, 21 February 2008
Line 1:	Line 1:
	+	== Example 1. Creating and saving document ==
	+	<delphi>
	+	var
	+	aDoc: ILMDXmlDocument;
	+	anElem: ILMDXmlElement;
	+	begin
	+	// Create empty XML document with root element 'base'
	+	aDoc := LMDCreateXmlDocument('base');

	+	// Create 'elem1' element and add it as child node for root element
	+	anElem := aDoc.DocumentElement.AppendElement('elem1');
	+
	+	// Add 'a1' and 'a2' attributes to 'elem1'
	+	anElem.SetAttr('a1', 'elem1 a1');
	+	anElem.SetAttr('a2', 'elem1 a2');
	+
	+	// Add another element 'elem2'
	+	anElem := aDoc.DocumentElement.AppendElement('elem');
	+	anElem.SetAttr('a1', 'elem2 a1');
	+	anElem.SetAttr('a2', 'elem2 a2');
	+
	+	// Save document to file
	+	aDoc.Save('Test.xml');
	+	end;
	+	</delphi>
	+
	+	There is content of saved file:
	+	<xml>
	+	<?xml version="1.0" encoding="windows-1251"?>
	+	<base>
	+	<elem1 a1="elem1 a1" a2="elem1 a2"/>
	+	<elem2 a1="elem2 a1" a2="elem2 a2"/>
	+	</base>
	+	</xml>
	+
	+	== Example 2. Reading and analyzing documents ==
	+	External xml file to parse. Test.xml
	+	<xml>
	+	<?xml version="1.0" encoding="window-1251"?>
	+	<root>
	+	<elem1 a1="v1" a2="v2"> 1</elem1>
	+	<!-- -->
	+	<elem2 a1="v1" a2="v2"> 2</elem2>
	+	</root>
	+	</xml>
	+
	+	Delphi code
	+	<delphi>
	+	var
	+	aDoc: ILMDXmlDocument;
	+	anElem2: ILMDXmlNode;
	+	begin
	+	// Create empty XML document
	+	aDoc := LMDCreateXmlDocument;
	+
	+	// Read content from file
	+	aDoc.Load('Test.xml');
	+
	+	// Show in Memo1 full text of xml that we read above
	+	Memo1.Lines.Text := aDoc.Xml;
	+
	+	Memo1.Lines.Add('------------------------');
	+
	+	// Search element with tag 'elem2'
	+	anElem2 := aDoc.DocumentElement.SelectSingleNode('elem2');
	+
	+	// Show in Memo1 XML-text anElem2
	+	Memo1.Lines.Add(anElem2.Xml);
	+
	+	Memo1.Lines.Add('------------------------');
	+
	+	// Show in Memo1 value of 'a2' attribute from anElem2 element
	+	Memo1.Lines.Add(anElem2.GetAttr('a2'));
	+	end;
	+	</delphi>

← Older revision		Revision as of 15:17, 21 February 2008
Line 1:		Line 1:
−	~~== Example 1. Creating and saving document ==~~
−	~~<delphi>~~
−	~~var~~
−	~~aDoc: ILMDXmlDocument;~~
−	~~anElem: ILMDXmlElement;~~
−	~~begin~~
−	~~// Create empty XML document with root element 'base'~~
−	~~aDoc := LMDCreateXmlDocument('base');~~

−	~~// Create 'elem1' element and add it as child node for root element~~
−	~~anElem := aDoc.DocumentElement.AppendElement('elem1');~~
−
−	~~// Add 'a1' and 'a2' attributes to 'elem1'~~
−	~~anElem.SetAttr('a1', 'elem1 a1');~~
−	~~anElem.SetAttr('a2', 'elem1 a2');~~
−
−	~~// Add another element 'elem2'~~
−	~~anElem := aDoc.DocumentElement.AppendElement('elem');~~
−	~~anElem.SetAttr('a1', 'elem2 a1');~~
−	~~anElem.SetAttr('a2', 'elem2 a2');~~
−
−	~~// Save document to file~~
−	~~aDoc.Save('Test.xml');~~
−	~~end;~~
−	~~</delphi>~~
−
−	~~There is content of saved file:~~
−	~~<xml>~~
−	~~<?xml version="1.0" encoding="windows-1251"?>~~
−	~~<base>~~
−	~~<elem1 a1="elem1 a1" a2="elem1 a2"/>~~
−	~~<elem2 a1="elem2 a1" a2="elem2 a2"/>~~
−	~~</base>~~
−	~~</xml>~~
−
−	~~== Example 2. Reading and analyzing documents ==~~
−	~~External xml file to parse. Test.xml~~
−	~~<xml>~~
−	~~<?xml version="1.0" encoding="window-1251"?>~~
−	~~<root>~~
−	~~<elem1 a1="v1" a2="v2"> 1</elem1>~~
−	~~<!-- -->~~
−	~~<elem2 a1="v1" a2="v2"> 2</elem2>~~
−	~~</root>~~
−	~~</xml>~~
−
−	~~Delphi code~~
−	~~<delphi>~~
−	~~var~~
−	~~aDoc: ILMDXmlDocument;~~
−	~~anElem2: ILMDXmlNode;~~
−	~~begin~~
−	~~// Create empty XML document~~
−	~~aDoc := LMDCreateXmlDocument;~~
−
−	~~// Read content from file~~
−	~~aDoc.Load('Test.xml');~~
−
−	~~// Show in Memo1 full text of xml that we read above~~
−	~~Memo1.Lines.Text := aDoc.Xml;~~
−
−	~~Memo1.Lines.Add('------------------------');~~
−
−	~~// Search element with tag 'elem2'~~
−	~~anElem2 := aDoc.DocumentElement.SelectSingleNode('elem2');~~
−
−	~~// Show in Memo1 XML-text anElem2~~
−	~~Memo1.Lines.Add(anElem2.Xml);~~
−
−	~~Memo1.Lines.Add('------------------------');~~
−
−	~~// Show in Memo1 value of 'a2' attribute from anElem2 element~~
−	~~Memo1.Lines.Add(anElem2.GetAttr('a2'));~~
−	~~end;~~
−	~~</delphi>~~