From: <ari...@us...> - 2012-09-28 12:17:32
|
Revision: 3875 http://jcl.svn.sourceforge.net/jcl/?rev=3875&view=rev Author: arioch_bdv Date: 2012-09-28 12:17:26 +0000 (Fri, 28 Sep 2012) Log Message: ----------- making TJclSimpleXMLElems.Remove guarded against empty FElems, like both TJclSimpleXMLElems.Delete already were Modified Paths: -------------- trunk/jcl/source/common/JclSimpleXml.pas Modified: trunk/jcl/source/common/JclSimpleXml.pas =================================================================== --- trunk/jcl/source/common/JclSimpleXml.pas 2012-09-26 21:11:23 UTC (rev 3874) +++ trunk/jcl/source/common/JclSimpleXml.pas 2012-09-28 12:17:26 UTC (rev 3875) @@ -2507,8 +2507,12 @@ function TJclSimpleXMLElems.Remove(Value: TJclSimpleXMLElem): Integer; begin - Result := FElems.IndexOfSimpleItem(Value); - Notify(Value, opRemove); + if FElems = nil + then Result := -1 // like TList.IndexOf(alien) + else begin + Result := FElems.IndexOfSimpleItem(Value); + Notify(Value, opRemove); + end; end; procedure TJclSimpleXMLElems.SaveToStringStream(StringStream: TJclStringStream; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |