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

LazUtils: Make ForceDirectoriesUTF8 more readable.

Browse Source 
git-svn-id: trunk@37108 -
This commit is contained in:
juha 2012-04-30 17:15:01 +00:00
parent 6d77dc76e7
commit afcd11631a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazutils/fileutil.inc
View File

@ -1578,10 +1578,12 @@ function ForceDirectoriesUTF8(const Dir: string): Boolean;
APath := ExtractFilePath(ADir);
//this can happen on Windows if user specifies Dir like \user\name/test/
//and would, if not checked for, cause an infinite recusrsion and a stack overflow
if (APath = ADir) then Result := False
else Result:=DoForceDirectories(APath);
If Result then
Result := CreateDirUTF8(ADir);
if (APath = ADir) then
Result := False
else
Result:=DoForceDirectories(APath);
if Result then
Result := CreateDirUTF8(ADir);
end;
end;