paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: laz_xmlstreaming: made GetPropertyElement protected, fixed reading vaBinary, bug #23534

Browse Source 
git-svn-id: trunk@39651 -
This commit is contained in:
mattias 2012-12-25 09:25:07 +00:00
parent 6324ecb89a
commit 55daa17ac3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/laz_xmlstreaming.pas
View File

@ -51,6 +51,7 @@ type
procedure StackPush(const Element: string = '';
ElementType: TXMLObjectWriterStackElType = elUnknown);
procedure StackPop;
protected
function GetPropertyElement(const TypeName: String): TDOMElement;
public
constructor Create(ADoc: TDOMDocument; const APath: string; Append: Boolean);
@ -750,6 +751,8 @@ begin
{$ENDIF}
else if FElement.NodeName='collectionproperty' then
Result:=vaCollection
else if FElement.NodeName='binary' then
Result:=vaBinary
else
RaiseUnknownNode(FElement);
if not Stay then begin