[JVCL-Checkins] CVS: jvcl/source JvSimpleXml.pas,1.21,1.22

[Sebastien B. <sb...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv17955

Modified Files:
	JvSimpleXml.pas 
Log Message:
Fixed bool bug and added GetChildIndex function

Index: JvSimpleXml.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvSimpleXml.pas,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** JvSimpleXml.pas	24 Oct 2002 03:01:44 -0000	1.21
--- JvSimpleXml.pas	9 Nov 2002 00:23:35 -0000	1.22
***************
*** 225,228 ****
--- 225,229 ----
      procedure GetBinaryValue(const Stream: TStream);
      property Data: Pointer read FData write FData;
+     function GetChildIndex(const AChild: TJvSimpleXmlElem): Integer;
    published
      property Name: string read FName write SetName;
***************
*** 947,951 ****
  function TJvSimpleXmlElem.GetBoolValue: Boolean;
  begin
!   result := StrToBool(Value);
  end;
  {*************************************************}
--- 948,962 ----
  function TJvSimpleXmlElem.GetBoolValue: Boolean;
  begin
!   result := StrToBoolDef(Value,false);
! end;
! {*************************************************}
! 
! function TJvSimpleXmlElem.GetChildIndex(
!   const AChild: TJvSimpleXmlElem): Integer;
! begin
!   if (FItems=nil) then
!     result := -1
!   else
!     result := FItems.FElems.IndexOfObject(AChild);
  end;
  {*************************************************}
***************
*** 1677,1681 ****
  function TJvSimpleXmlProp.GetBoolValue: Boolean;
  begin
!   result := StrToBool(Value);
  end;
  {*************************************************}
--- 1688,1692 ----
  function TJvSimpleXmlProp.GetBoolValue: Boolean;
  begin
!   result := StrToBoolDef(Value,false);
  end;
  {*************************************************}