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

Patch from bug #17615. Fixes FindMatch for wince

Browse Source 
git-svn-id: trunk@27679 -
This commit is contained in:
sekelsenmat 2010-10-13 11:11:24 +00:00
parent a51553ba61
commit 744a64c9cd
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/winfileutil.inc
View File

@ -232,7 +232,7 @@ begin
WinToDosTime(F.FindData.ftLastWriteTime,F.Time); WinToDosTime(F.FindData.ftLastWriteTime,F.Time);
f.size:=F.FindData.NFileSizeLow+(qword(maxdword)+1)*F.FindData.NFileSizeHigh; f.size:=F.FindData.NFileSizeLow+(qword(maxdword)+1)*F.FindData.NFileSizeHigh;
f.attr:=F.FindData.dwFileAttributes; f.attr:=F.FindData.dwFileAttributes;
f.Name:=StrPas(@F.FindData.cFileName[0]); f.Name:=F.FindData.cFileName;
Result:=0; Result:=0;
end; end;