paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 01:59:12 +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

4
components/codetools/fileprocs.pas
View File

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