paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 21:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix Unable to create target lazarus directory, issue #10286

Browse Source 
git-svn-id: trunk@13071 -
This commit is contained in:
jesus 2007-11-29 05:09:32 +00:00
parent 6301facd85
commit 9df2110ffb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/fileprocs.pas
View File

@ -603,7 +603,7 @@ var i: integer;
Dir: string;
begin
DoDirSeparators(DirectoryName);
DirectoryName:=IncludeTrailingPathDelimiter(DirectoryName);
DirectoryName:=AppendPathDelim(DirectoryName);
i:=1;
while i<=length(DirectoryName) do begin
if DirectoryName[i]=PathDelim then begin