UPD: Use CeUtf16ToUtf8 function (issue #2374)

(cherry picked from commit 0ff4de4985)
This commit is contained in:
Alexander Koblov 2025-08-03 15:13:29 +03:00
commit 1c1be9e27e

View file

@ -86,7 +86,7 @@ procedure FindCloseEx(var SearchRec: TSearchRecEx);
implementation
uses
LazUTF8, uDebug
LazUTF8, DCConvertEncoding, uDebug
{$IFDEF LINUX}
, InitC
{$ENDIF}
@ -94,7 +94,7 @@ uses
, DCWindows, DCDateTimeUtils, uMyWindows
{$ENDIF}
{$IFDEF UNIX}
, Unix, DCOSUtils, DCFileAttributes, DCConvertEncoding
, Unix, DCOSUtils, DCFileAttributes
{$ENDIF};
{$IF DEFINED(DARWIN) AND DEFINED(CPUX86_64)}
@ -137,7 +137,7 @@ begin
end;
FindData.dwFileAttributes:= ExtractFileAttributes(FindData);
Size:= (Int64(FindData.nFileSizeHigh) shl 32) + FindData.nFileSizeLow;
Name:= UTF16ToUTF8(UnicodeString(FindData.cFileName));
Name:= CeUtf16ToUtf8(UnicodeString(FindData.cFileName));
Attr:= FindData.dwFileAttributes;
end;
Result:= 0;