[JEDI.NET-commits] tools/docs/common Jedi.Docs.System.pas,1.4,1.5

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/tools/docs/common
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10402/tools/docs/common

Modified Files:
	Jedi.Docs.System.pas 
Log Message:
Delphi's internal types where exported if the owning class was inherited from a class declared in Delphi. Solution was to iterate the BaseType chain to see if it ultimately inherits from Borland.Delphi.System.@TClass

Index: Jedi.Docs.System.pas
===================================================================
RCS file: /cvsroot/jedidotnet/tools/docs/common/Jedi.Docs.System.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Jedi.Docs.System.pas	26 Nov 2004 15:12:47 -0000	1.4
--- Jedi.Docs.System.pas	26 Nov 2004 15:34:55 -0000	1.5
***************
*** 449,454 ****
  begin
    base := &type.BaseType;
!   Result := (&type.IsPublic or &type.IsNestedPublic or &type.IsNestedFamily or &type.IsNestedFamORAssem) and
!     (not Assigned(base) or (base.FullName <> 'Borland.Delphi.System.@TClass')) and (&type.Name <> 'Unit');
  end;
  
--- 449,460 ----
  begin
    base := &type.BaseType;
!   Result := True;
!   while Assigned(base) and Result do
!   begin
!     Result := (base.FullName <> 'Borland.Delphi.System.@TClass');
!     base := base.BaseType;
!   end;
!   Result := Result and (&type.IsPublic or &type.IsNestedPublic or &type.IsNestedFamily or &type.IsNestedFamORAssem) and
!     (&type.Name <> 'Unit');
  end;
  
***************
*** 688,692 ****
  begin
    base := &type.BaseType;
!   Result := (not Assigned(base) or (&type.BaseType.FullName <> 'Borland.Delphi.System.@TClass')) and (
      &type.IsPublic or &type.IsNestedPublic or (not &type.DeclaringType.IsSealed and
      (&type.IsNestedFamily or &type.IsNestedFamORAssem)));
--- 694,704 ----
  begin
    base := &type.BaseType;
!   Result := True;
!   while Assigned(base) and Result do
!   begin
!     Result := (base.FullName <> 'Borland.Delphi.System.@TClass');
!     base := base.BaseType;
!   end;
!   Result := Result and (
      &type.IsPublic or &type.IsNestedPublic or (not &type.DeclaringType.IsSealed and
      (&type.IsNestedFamily or &type.IsNestedFamORAssem)));