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

LCL fileutil: fixed compilation with fpc 2.2.0

Browse Source 
git-svn-id: trunk@13235 -
This commit is contained in:
tombo 2007-12-08 19:19:14 +00:00
parent 3b6c31b854
commit f77f76756c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/fileutil.inc
View File

@ -1444,7 +1444,7 @@ var
P: String;
PathInfo: TSearchRec;
begin
P := APath + AllFilesMask;
P := APath + AllDirectoryEntriesMask;
if SysUtils.FindFirst(P, faAnyFile, PathInfo) = 0 then
try