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

Lazfileutils.pas: fix incorrect indentation from r41036 #0baf6d6df0

Browse Source 
git-svn-id: trunk@41037 -
This commit is contained in:
bart 2013-05-05 11:28:29 +00:00
parent 0baf6d6df0
commit d9e1aa876f
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/lazutils/lazfileutils.pas
View File

@ -652,7 +652,7 @@ begin
if (BaseDirectory='') or (Filename='') then Exit(FileName);
Result := SysUtils.ExtractRelativePath(ExpandFileNameUtf8(IncludetrailingPathDelimiter(BaseDirectory)),FileName);
if UsePointDirectory and (Result='') and (Filename<>'') then
Result:='.'; // Filename is the BaseDirectory
Result:='.'; // Filename is the BaseDirectory
end;
{------------------------------------------------------------------------------