sergiy / verysimplexml Goto Github PK

I have added XSD support (mainly prefix stuff) and some methods/tweaks useful 
to what i recently did with xml/xsd files.

===resolve it:
destructor TXmlNode.Destroy;
begin
  if assigned(Parent) then
    Parent.ChildNodes.Extract(Self);

{$IFDEF  Windows}
  AttributeList.Free;
  ChildNodes.Free;
{$ELSE}
  AttributeList.DisposeOf;
  ChildNodes.DisposeOf;
{$ENDIF}
  inherited;
end;

What steps will reproduce the problem?
1. Use any XML with target iOS

What is the expected output? What do you see instead?
Expected:<XML><a></a></XML>
Output: <XML></A></A></>

What steps will reproduce the problem?
1. Call aNode.NextSibling and sit in infinite loop


function TXmlNodeList.NextSibling(Node: TXmlNode): TXmlNode;
var
  Index: Integer;
begin
  if (not assigned(Node)) and (Count > 0) then
    Result := First
  else
  begin
    Index := Self.IndexOf(Node);
    if (Index >= 0) and (Index + 1 < Count) then
      Result := Self[Index + 1]  //<- fix
    else
      Result := NIL;
  end;
end;

function TXmlNodeList.PreviousSibling(Node: TXmlNode): TXmlNode;
var
  Index: Integer;
begin
  Index := Self.IndexOf(Node);
  if Index - 1 >= 0 then
    Result := Self[Index - 1]  //<- fix
  else
    Result := NIL;
end;

Thank you for making my XML life easier ;-)