paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 13:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: skip directories from GetTempFileName (from v-t-l)

Browse Source 
git-svn-id: trunk@15540 -
This commit is contained in:
paul 2008-06-23 13:54:35 +00:00
parent 067fa7a973
commit 2bdf444a61
1 changed files with 1 additions and 1 deletions

2
lcl/include/fileutil.inc
View File

@ -1115,7 +1115,7 @@ begin
i:=1;
repeat
Result:=CurPath+IntToStr(i)+'.tmp';
if not FileExists(Result) then exit;
if not (FileExists(Result) or DirectoryExists(Result)) then exit;
inc(i);
until false;
end;