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

Fixes bug #19602 FindFirstUTF8 was wrong in wince

Browse Source 
git-svn-id: trunk@31326 -
This commit is contained in:
sekelsenmat 2011-06-22 06:21:38 +00:00
parent 54b44563d9
commit cbc0a8ce4a
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/winfileutil.inc
View File

@ -244,10 +244,22 @@ begin
WinToDosTime(F.FindData.ftLastWriteTime,F.Time);
f.size:=F.FindData.NFileSizeLow+(qword(maxdword)+1)*F.FindData.NFileSizeHigh;
f.attr:=F.FindData.dwFileAttributes;
{ The structures are different at this point
in win32 it is the ansi structure with a utf-8 string
in wince it is a wide structure }
{$ifdef WinCE}
f.Name:=UTF8Encode(F.FindData.cFileName);
{$else}
f.Name:=F.FindData.cFileName;
{$endif}
Result:=0;
end;
{ This function does not really convert from wide to ansi, but from wide to
a utf-8 encoded ansi version of the data structures in win32 and does
nothing in wince
See FindMatch also }
procedure FindWideToAnsi(const wide: TWIN32FINDDATAW; var ansi: TWIN32FINDDATA);
var
ws : WideString;