You've already forked lazarus-ccr
Fix AV with xml
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1259 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -111,6 +111,7 @@ type
|
|||||||
|
|
||||||
TScopedArrayStackItem = class(TAbstractArrayStackItem)
|
TScopedArrayStackItem = class(TAbstractArrayStackItem)
|
||||||
protected
|
protected
|
||||||
|
destructor Destroy();override;
|
||||||
function CreateList(const ANodeName : string):TDOMNodeList;override;
|
function CreateList(const ANodeName : string):TDOMNodeList;override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2371,6 +2372,13 @@ end;
|
|||||||
|
|
||||||
{ TScopedArrayStackItem }
|
{ TScopedArrayStackItem }
|
||||||
|
|
||||||
|
destructor TScopedArrayStackItem.Destroy();
|
||||||
|
begin
|
||||||
|
if ( FItemList <> nil ) then
|
||||||
|
FItemList := nil;
|
||||||
|
inherited Destroy();
|
||||||
|
end;
|
||||||
|
|
||||||
function TScopedArrayStackItem.CreateList(const ANodeName : string): TDOMNodeList;
|
function TScopedArrayStackItem.CreateList(const ANodeName : string): TDOMNodeList;
|
||||||
begin
|
begin
|
||||||
if ScopeObject.HasChildNodes() then begin
|
if ScopeObject.HasChildNodes() then begin
|
||||||
|
@ -80,9 +80,9 @@ end;
|
|||||||
|
|
||||||
procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload;
|
procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload;
|
||||||
begin
|
begin
|
||||||
{$IFNDEF TDOMNodeList_RELEASE_NOT_FREE}
|
{ $IFNDEF TDOMNodeList_RELEASE_NOT_FREE}
|
||||||
ADomNode.Free();
|
ADomNode.Free();
|
||||||
{$ENDIF}
|
{ $ENDIF}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload;
|
procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload;
|
||||||
|
@ -175,7 +175,7 @@ implementation
|
|||||||
begin
|
begin
|
||||||
Result := nil;
|
Result := nil;
|
||||||
if ( ANode <> nil ) and ANode.HasChildNodes() then begin
|
if ( ANode <> nil ) and ANode.HasChildNodes() then begin
|
||||||
Result := TDOMNodeListCursor.Create(ANode.ChildNodes,faFreeOnDestroy) ;
|
Result := TDOMNodeListCursor.Create(ANode.ChildNodes,faNone) ;
|
||||||
if ( AExposedType = cetRttiNode ) then
|
if ( AExposedType = cetRttiNode ) then
|
||||||
Result := TDOMNodeRttiExposerCursor.Create(Result);
|
Result := TDOMNodeRttiExposerCursor.Create(Result);
|
||||||
end;
|
end;
|
||||||
|
Reference in New Issue
Block a user