eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Recrusive DirCreate now exits true if it exists

This commit is contained in:
mysticbbs 2012-07-30 18:16:26 -04:00
parent 2fe5f6b0a2
commit 817d220480
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mdl/m_fileio.pas
View File

@ -295,6 +295,8 @@ Begin
Prefix := ''; Prefix := '';
Str := DirSlash(Str); Str := DirSlash(Str);
If DirExists(Str) Then Exit;
Count := Pos(PathSep, Str); Count := Pos(PathSep, Str);
While (Count > 0) Do Begin While (Count > 0) Do Begin