[JVCL-Checkins] dev/JVCL3/run JvAppXMLStorage.pas,1.17,1.18 - Fixed Delphi 7.1 wrong compiler hints

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12681/run

Modified Files:
	JvAppXMLStorage.pas 
Log Message:
Fixed Delphi 7.1 wrong compiler hints


Index: JvAppXMLStorage.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvAppXMLStorage.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** JvAppXMLStorage.pas	29 Mar 2004 02:04:46 -0000	1.17
--- JvAppXMLStorage.pas	7 May 2004 16:51:17 -0000	1.18
***************
*** 69,73 ****
      function IsFolderInt(Path: string; ListIsValue: Boolean = True): Boolean; override;
      procedure SplitKeyPath(const Path: string; out Key, ValueName: string); override;
!     function PathExistsInt(const Path: string): boolean; override;
      function ValueStoredInt(const Path: string): Boolean; override;
      procedure DeleteValueInt(const Path: string); override;
--- 69,73 ----
      function IsFolderInt(Path: string; ListIsValue: Boolean = True): Boolean; override;
      procedure SplitKeyPath(const Path: string; out Key, ValueName: string); override;
!     function PathExistsInt(const Path: string): Boolean; override;
      function ValueStoredInt(const Path: string): Boolean; override;
      procedure DeleteValueInt(const Path: string); override;
***************
*** 517,521 ****
    Node: TJvSimpleXmlElem;
  begin
!   if AutoReload and not IsUpdating then Reload;
    NodeList := TStringList.Create;
    if StartNode <> nil then
--- 517,524 ----
    Node: TJvSimpleXmlElem;
  begin
!   Result := nil;
! 
!   if AutoReload and not IsUpdating then
!     Reload;
    NodeList := TStringList.Create;
    if StartNode <> nil then
***************
*** 526,530 ****
    try
      try
!       StrToStrings(Path, '\', NodeList, false);
        for I := 0 to NodeList.Count - 1 do
        begin
--- 529,533 ----
    try
      try
!       StrToStrings(Path, '\', NodeList, False);
        for I := 0 to NodeList.Count - 1 do
        begin
***************
*** 532,539 ****
            Node := Node.Items.ItemNamed[NodeList[i]]
          else
-         begin
-           Result := nil;
            Exit;
-         end;
        end;
      finally
--- 535,539 ----
***************
*** 546,550 ****
  end;
  
! function TJvCustomAppXMLStorage.PathExistsInt(const Path: string): boolean;
  var
    SubKey: string;
--- 546,550 ----
  end;
  
! function TJvCustomAppXMLStorage.PathExistsInt(const Path: string): Boolean;
  var
    SubKey: string;