paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:36:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: xmlreader: added example xml

Browse Source 
git-svn-id: trunk@38147 -
This commit is contained in:
mattias 2012-08-04 10:39:01 +00:00
parent 705588570b
commit b10d611dbd
6 changed files with 219 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -4227,8 +4227,8 @@ examples/xmlreader/TestXMLReder.lpr svneol=native#text/plain
examples/xmlreader/TestXMLReder.lrs svneol=native#text/plain examples/xmlreader/TestXMLReder.lrs svneol=native#text/plain
examples/xmlreader/TestXMLReder.manifest svneol=native#text/plain examples/xmlreader/TestXMLReder.manifest svneol=native#text/plain
examples/xmlreader/TestXMLReder.rc svneol=native#text/plain examples/xmlreader/TestXMLReder.rc svneol=native#text/plain
examples/xmlreader/test.xml svneol=native#text/plain
examples/xmlreader/testxmlreaderunit.lfm svneol=native#text/plain examples/xmlreader/testxmlreaderunit.lfm svneol=native#text/plain
examples/xmlreader/testxmlreaderunit.lrs svneol=native#text/plain
examples/xmlreader/testxmlreaderunit.pas svneol=native#text/plain examples/xmlreader/testxmlreaderunit.pas svneol=native#text/plain
examples/xmlstreaming/mainunit.lfm svneol=native#text/plain examples/xmlstreaming/mainunit.lfm svneol=native#text/plain
examples/xmlstreaming/mainunit.lrs svneol=native#text/pascal examples/xmlstreaming/mainunit.lrs svneol=native#text/pascal

46
examples/xmlreader/TestXMLReder.lpi
View File

@ -1,21 +1,23 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="9"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/>
<Title Value="TestXMLReder"/> <Title Value="TestXMLReder"/>
<Icon Value="0"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/> <Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -25,7 +27,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<CommandLineParams Value="/home/alexs/work/fpc/demo10-xml/TestXMLReder.lpi"/> <CommandLineParams Value="test.xml"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
@ -45,43 +47,47 @@
<Filename Value="testxmlreaderunit.pas"/> <Filename Value="testxmlreaderunit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="XMLRederForm"/> <ComponentName Value="XMLRederForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestXMLReaderUnit"/> <UnitName Value="TestXMLReaderUnit"/>
<CursorPos X="1" Y="135"/> <IsVisibleTab Value="True"/>
<TopLine Value="101"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="92"/>
<CursorPos X="36" Y="105"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../../install/fpcsrc/packages/fcl-xml/src/xmlread.pp"/> <Filename Value="../../../install/fpcsrc/packages/fcl-xml/src/xmlread.pp"/>
<UnitName Value="XMLRead"/> <UnitName Value="XMLRead"/>
<CursorPos X="11" Y="3800"/>
<TopLine Value="3782"/> <TopLine Value="3782"/>
<CursorPos X="11" Y="3800"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../install/fpcsrc/packages/fcl-xml/src/dom.pp"/> <Filename Value="../../../install/fpcsrc/packages/fcl-xml/src/dom.pp"/>
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="3" Y="947"/>
<TopLine Value="945"/> <TopLine Value="945"/>
<CursorPos X="3" Y="947"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../../../../usr/local/share/lazarus/lcl/comctrls.pp"/> <Filename Value="../../../../../usr/local/share/lazarus/lcl/comctrls.pp"/>
<UnitName Value="ComCtrls"/> <UnitName Value="ComCtrls"/>
<CursorPos X="28" Y="829"/>
<TopLine Value="811"/> <TopLine Value="811"/>
<CursorPos X="28" Y="829"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/> <Filename Value="../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
<CursorPos X="59" Y="4318"/>
<TopLine Value="4300"/> <TopLine Value="4300"/>
<CursorPos X="59" Y="4318"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
</Units> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="4" HistoryIndex="3">
<Position1> <Position1>
<Filename Value="testxmlreaderunit.pas"/> <Filename Value="testxmlreaderunit.pas"/>
<Caret Line="91" Column="53" TopLine="31"/> <Caret Line="91" Column="53" TopLine="31"/>
@ -94,17 +100,26 @@
<Filename Value="testxmlreaderunit.pas"/> <Filename Value="testxmlreaderunit.pas"/>
<Caret Line="69" Column="28" TopLine="34"/> <Caret Line="69" Column="28" TopLine="34"/>
</Position3> </Position3>
<Position4>
<Filename Value="testxmlreaderunit.pas"/>
<Caret Line="123" Column="1" TopLine="93"/>
</Position4>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<Target> <Target>
<Filename Value="TestXMLReder"/> <Filename Value="TestXMLReder"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -129,4 +144,5 @@
</Item3> </Item3>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
<EditorMacros Count="0"/>
</CONFIG> </CONFIG>

132
examples/xmlreader/test.xml Normal file
View File

@ -0,0 +1,132 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<Title Value="TestXMLReder"/>
<Icon Value="0"/>
<UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="/home/alexs/work/fpc/demo10-xml/TestXMLReder.lpi"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="6">
<Unit0>
<Filename Value="TestXMLReder.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestXMLReder"/>
<UsageCount Value="21"/>
</Unit0>
<Unit1>
<Filename Value="testxmlreaderunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="XMLRederForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="TestXMLReaderUnit"/>
<CursorPos X="1" Y="135"/>
<TopLine Value="101"/>
<EditorIndex Value="0"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../install/fpcsrc/packages/fcl-xml/src/xmlread.pp"/>
<UnitName Value="XMLRead"/>
<CursorPos X="11" Y="3800"/>
<TopLine Value="3782"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="../../../install/fpcsrc/packages/fcl-xml/src/dom.pp"/>
<UnitName Value="DOM"/>
<CursorPos X="3" Y="947"/>
<TopLine Value="945"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="../../../../../usr/local/share/lazarus/lcl/comctrls.pp"/>
<UnitName Value="ComCtrls"/>
<CursorPos X="28" Y="829"/>
<TopLine Value="811"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
<CursorPos X="59" Y="4318"/>
<TopLine Value="4300"/>
<UsageCount Value="10"/>
</Unit5>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="testxmlreaderunit.pas"/>
<Caret Line="91" Column="53" TopLine="31"/>
</Position1>
<Position2>
<Filename Value="testxmlreaderunit.pas"/>
<Caret Line="124" Column="7" TopLine="92"/>
</Position2>
<Position3>
<Filename Value="testxmlreaderunit.pas"/>
<Caret Line="69" Column="28" TopLine="34"/>
</Position3>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Target>
<Filename Value="TestXMLReder"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

108
examples/xmlreader/testxmlreaderunit.lfm
View File

@ -1,24 +1,24 @@
object XMLRederForm: TXMLRederForm object XMLRederForm: TXMLRederForm
Left = 312 Left = 312
Height = 690 Height = 381
Top = 119 Top = 119
Width = 939 Width = 732
ActiveControl = Panel1 ActiveControl = Panel1
Caption = 'XML reader test' Caption = 'XML reader test'
ClientHeight = 690 ClientHeight = 381
ClientWidth = 939 ClientWidth = 732
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '1.1'
object TreeView1: TTreeView object TreeView1: TTreeView
Left = 0 Left = 0
Height = 624 Height = 316
Top = 66 Top = 65
Width = 457 Width = 342
Align = alLeft Align = alLeft
AutoExpand = True AutoExpand = True
DefaultItemHeight = 19 DefaultItemHeight = 18
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
OnClick = TreeView1Click OnClick = TreeView1Click
@ -26,23 +26,23 @@ object XMLRederForm: TXMLRederForm
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 66 Height = 65
Top = 0 Top = 0
Width = 939 Width = 732
Align = alTop Align = alTop
AutoSize = True AutoSize = True
ClientHeight = 66 ClientHeight = 65
ClientWidth = 939 ClientWidth = 732
TabOrder = 1 TabOrder = 1
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 867 Left = 666
Height = 30 Height = 30
Top = 30 Top = 28
Width = 66 Width = 59
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -66,10 +66,10 @@ object XMLRederForm: TXMLRederForm
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 6 Left = 7
Height = 18 Height = 15
Top = 6 Top = 7
Width = 66 Width = 52
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'File name' Caption = 'File name'
ParentColor = False ParentColor = False
@ -78,16 +78,16 @@ object XMLRederForm: TXMLRederForm
AnchorSideLeft.Control = Label1 AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 13
Height = 29 Height = 25
Top = 30 Top = 28
Width = 828 Width = 620
FileName = '/home/alexs/work/a/2009-11-24/Magazin_7_RealizaciqTovarovUslug_2009-11-11.xml' FileName = 'test.xml'
DialogOptions = [] DialogOptions = []
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -97,28 +97,28 @@ object XMLRederForm: TXMLRederForm
end end
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 457 Left = 342
Height = 624 Height = 316
Top = 66 Top = 65
Width = 5 Width = 5
end end
object Panel2: TPanel object Panel2: TPanel
Left = 462 Left = 347
Height = 624 Height = 316
Top = 66 Top = 65
Width = 477 Width = 385
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
ClientHeight = 624 ClientHeight = 316
ClientWidth = 477 ClientWidth = 385
TabOrder = 3 TabOrder = 3
object ListView1: TListView object ListView1: TListView
AnchorSideTop.Control = Edit2 AnchorSideTop.Control = Edit2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 1 Left = 1
Height = 499 Height = 204
Top = 124 Top = 111
Width = 475 Width = 383
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -137,10 +137,10 @@ object XMLRederForm: TXMLRederForm
object Label2: TLabel object Label2: TLabel
AnchorSideLeft.Control = Panel2 AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2 AnchorSideTop.Control = Panel2
Left = 6 Left = 7
Height = 18 Height = 15
Top = 6 Top = 7
Width = 81 Width = 63
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Node name' Caption = 'Node name'
ParentColor = False ParentColor = False
@ -149,10 +149,10 @@ object XMLRederForm: TXMLRederForm
AnchorSideLeft.Control = Panel2 AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Edit1 AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 7
Height = 18 Height = 15
Top = 65 Top = 59
Width = 78 Width = 62
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Node value' Caption = 'Node value'
ParentColor = False ParentColor = False
@ -163,10 +163,10 @@ object XMLRederForm: TXMLRederForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel2 AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 13
Height = 29 Height = 25
Top = 30 Top = 28
Width = 459 Width = 365
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 1 TabOrder = 1
@ -178,10 +178,10 @@ object XMLRederForm: TXMLRederForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel2 AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 13
Height = 29 Height = 25
Top = 89 Top = 80
Width = 459 Width = 365
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 2 TabOrder = 2

71
examples/xmlreader/testxmlreaderunit.lrs
View File

@ -1,71 +0,0 @@
{ Это - файл ресурсов, автоматически созданный lazarus }
LazarusResources.Add('TXMLRederForm','FORMDATA',[
'TPF0'#13'TXMLRederForm'#12'XMLRederForm'#4'Left'#3'8'#1#6'Height'#3#178#2#3
+'Top'#2'w'#5'Width'#3#171#3#13'ActiveControl'#7#6'Panel1'#7'Caption'#6#15'XM'
+'L reader test'#12'ClientHeight'#3#178#2#11'ClientWidth'#3#171#3#7'OnClose'#7
+#9'FormClose'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'
+#10'LCLVersion'#6#6'0.9.29'#0#9'TTreeView'#9'TreeView1'#4'Left'#2#0#6'Height'
+#3'p'#2#3'Top'#2'B'#5'Width'#3#201#1#5'Align'#7#6'alLeft'#10'AutoExpand'#9#17
+'DefaultItemHeight'#2#19#8'ReadOnly'#9#8'TabOrder'#2#0#7'OnClick'#7#14'TreeV'
+'iew1Click'#7'Options'#11#13'tvoAutoExpand'#17'tvoAutoItemHeight'#16'tvoHide'
+'Selection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowButtons'#12
+'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#6'TPanel'#6'Panel1'#4'L'
+'eft'#2#0#6'Height'#2'B'#3'Top'#2#0#5'Width'#3#171#3#5'Align'#7#5'alTop'#8'A'
+'utoSize'#9#12'ClientHeight'#2'B'#11'ClientWidth'#3#171#3#8'TabOrder'#2#1#0#7
+'TBitBtn'#7'BitBtn1'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.'
+'Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#6'Panel1'#20'AnchorSideR'
+'ight.Side'#7#9'asrBottom'#4'Left'#3'c'#3#6'Height'#2#30#3'Top'#2#30#5'Width'
+#2'B'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Aro'
+'und'#2#6#7'Caption'#6#4'Load'#10'Glyph.Data'#10'R'#1#0#0'N'#1#0#0'BMN'#1#0#0
+#0#0#0#0'v'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#4#0#0#0#0#0#216#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0
+#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0
+#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#238#238#238#238
+#238#238#238#238#238#0#0#0#238#238#238#238#238#238#238#238#238#0#0#0#238#0#0
+#0#0#0#14#238#238#0#0#0#238#0'33330'#238#238#0#0#0#238#11#3'3333'#14#238#0#0
+#0#238#15#176'33330'#238#0#0#0#238#11#251#3'3333'#14#0#0#0#238#15#191#176#0#0
+#0#0#0#0#0#0#238#11#251#251#251#251#14#238#238#0#0#0#238#15#191#191#191#191
+#14#238#238#0#0#0#238#11#251#0#0#0#14#238#238#0#0#0#238#224#0#238#238#238#238
+#0#14#0#0#0#238#238#238#238#238#238#238#224#14#0#0#0#238#238#238#238#238#14
+#238#14#14#0#0#0#238#238#238#238#238#224#0#238#238#0#0#0#238#238#238#238#238
+#238#238#238#238#0#0#0#238#238#238#238#238#238#238#238#238#0#0#0#238#238#238
+#238#238#238#238#238#238#0#0#0#7'OnClick'#7#12'BitBtn1Click'#8'TabOrder'#2#0
+#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#6'Panel1'#21'AnchorSid'
+'eTop.Control'#7#6'Panel1'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2
+'B'#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'File name'#11'ParentColor'#8
+#0#0#13'TFileNameEdit'#13'FileNameEdit1'#22'AnchorSideLeft.Control'#7#6'Labe'
+'l1'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#4'Left'#2#12#6'Height'#2#29#3'Top'#2#30#5'Width'#3'<'#3#8'FileName'#6
+'M/home/alexs/work/a/2009-11-24/Magazin_7_RealizaciqTovarovUslug_2009-11-11.'
+'xml'#13'DialogOptions'#11#0#11'FilterIndex'#2#0#15'HideDirectories'#8#11'Bu'
+'ttonWidth'#2#23#9'NumGlyphs'#2#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Bot'
+'tom'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#0#0#0#9'TSplitter'#9'Splitter1'#4
+'Left'#3#201#1#6'Height'#3'p'#2#3'Top'#2'B'#5'Width'#2#5#0#0#6'TPanel'#6'Pan'
+'el2'#4'Left'#3#206#1#6'Height'#3'p'#2#3'Top'#2'B'#5'Width'#3#221#1#5'Align'
+#7#8'alClient'#7'Caption'#6#6'Panel2'#12'ClientHeight'#3'p'#2#11'ClientWidth'
+#3#221#1#8'TabOrder'#2#3#0#9'TListView'#9'ListView1'#21'AnchorSideTop.Contro'
+'l'#7#5'Edit2'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#1#6'Height'#3
+#243#1#3'Top'#2'|'#5'Width'#3#219#1#5'Align'#7#8'alBottom'#7'Anchors'#11#5'a'
+'kTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'BorderSpacing.Top'#2#6#7'Column'
+'s'#14#1#7'Caption'#6#4'Name'#5'Width'#2'd'#0#1#7'Caption'#6#5'Value'#5'Widt'
+'h'#3'^'#1#0#0#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0#6'TLabel'#6'La'
+'bel2'#22'AnchorSideLeft.Control'#7#6'Panel2'#21'AnchorSideTop.Control'#7#6
+'Panel2'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'Q'#20'BorderSpacin'
+'g.Around'#2#6#7'Caption'#6#9'Node name'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
+'abel3'#22'AnchorSideLeft.Control'#7#6'Panel2'#21'AnchorSideTop.Control'#7#5
+'Edit1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'T'
+'op'#2'A'#5'Width'#2'N'#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'Node va'
+'lue'#11'ParentColor'#8#0#0#5'TEdit'#5'Edit1'#22'AnchorSideLeft.Control'#7#6
+'Label2'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'as'
+'rBottom'#23'AnchorSideRight.Control'#7#6'Panel2'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#12#6'Height'#2#29#3'Top'#2#30#5'Width'#3#203#1#7'Anc'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#8'Tab'
+'Order'#2#1#4'Text'#6#5'Edit1'#0#0#5'TEdit'#5'Edit2'#22'AnchorSideLeft.Contr'
+'ol'#7#6'Label3'#21'AnchorSideTop.Control'#7#6'Label3'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#23'AnchorSideRight.Control'#7#6'Panel2'#20'AnchorSideRight.S'
,'ide'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#29#3'Top'#2'Y'#5'Width'#3#203#1
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#8
+'TabOrder'#2#2#4'Text'#6#5'Edit2'#0#0#0#0
]);

3
examples/xmlreader/testxmlreaderunit.pas
View File

@ -128,8 +128,7 @@ begin
TreeView1Click(nil); TreeView1Click(nil);
end; end;
initialization {$R *.lfm}
{$I testxmlreaderunit.lrs}
end. end.