paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

don't try to access empty string members

Browse Source 
git-svn-id: trunk@14369 -
This commit is contained in:
paul 2008-03-03 02:54:00 +00:00
parent ab8d3d88f9
commit 7234fee1f0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/fileprocs.pas
View File

@ -1353,9 +1353,9 @@ begin
Result:=copy(Result,1,StartPos-1)+NewPath+copy(Result,EndPos,length(Result)); Result:=copy(Result,1,StartPos-1)+NewPath+copy(Result,EndPos,length(Result));
EndPos:=StartPos+length(NewPath); EndPos:=StartPos+length(NewPath);
end; end;
// check if path already exists // check if path already exists
if FindPathInSearchPath(@Result[StartPos],EndPos-StartPos, if (Length(Result) > 0) and
@Result[1],StartPos-1)<>nil (FindPathInSearchPath(@Result[StartPos],EndPos-StartPos, @Result[1],StartPos-1) <> nil)
then begin then begin
// remove path // remove path
System.Delete(Result,StartPos,EndPos-StartPos+1); System.Delete(Result,StartPos,EndPos-StartPos+1);