|
@@ -1014,8 +1014,8 @@ end;
|
|
|
|
|
|
|
|
destructor TDOMNode_WithChildren.Destroy;
|
|
destructor TDOMNode_WithChildren.Destroy;
|
|
|
begin
|
|
begin
|
|
|
- FreeAndNil(FChildNodeTree);
|
|
|
|
|
FreeChildren;
|
|
FreeChildren;
|
|
|
|
|
+ FreeAndNil(FChildNodeTree);
|
|
|
inherited Destroy;
|
|
inherited Destroy;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
@@ -1243,6 +1243,8 @@ procedure TDOMNode_WithChildren.FreeChildren;
|
|
|
var
|
|
var
|
|
|
child, next: TDOMNode;
|
|
child, next: TDOMNode;
|
|
|
begin
|
|
begin
|
|
|
|
|
+ if Assigned(FChildNodeTree) then
|
|
|
|
|
+ FChildNodeTree.Clear;
|
|
|
child := FFirstChild;
|
|
child := FFirstChild;
|
|
|
while Assigned(child) do
|
|
while Assigned(child) do
|
|
|
begin
|
|
begin
|
Almindor