[JEDI.NET-commits] main/run Jedi.IO.Paths.pas,1.4,1.5

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

Update of /cvsroot/jedidotnet/main/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25218/main/run

Modified Files:
	Jedi.IO.Paths.pas 
Log Message:
Fixed bug in MakeRelativeFrom with two paths having no common base path

Index: Jedi.IO.Paths.pas
===================================================================
RCS file: /cvsroot/jedidotnet/main/run/Jedi.IO.Paths.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Jedi.IO.Paths.pas	28 Mar 2005 18:13:19 -0000	1.4
--- Jedi.IO.Paths.pas	29 Mar 2005 10:49:56 -0000	1.5
***************
*** 347,351 ****
    commonElements := CommonBaseImpl([basePath, inPath], config);
    relativeElements := ArrayList.Create;
!   upLevelCount := basePathElementCount - commonElements.Count;
    while upLevelCount > 0 do
    begin
--- 347,354 ----
    commonElements := CommonBaseImpl([basePath, inPath], config);
    relativeElements := ArrayList.Create;
!   if commonElements.Count > 0 then
!     upLevelCount := basePathElementCount - commonElements.Count
!   else
!     upLevelCount := 0;
    while upLevelCount > 0 do
    begin