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

LazUtils: Remove UTF8Encode calls and suppress warnings in winlazfileutils.inc. Issue #35512.

Browse Source 
git-svn-id: trunk@61999 -
This commit is contained in:
juha 2019-10-06 08:18:07 +00:00
parent a2b504be6f
commit 58b76f8a40
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/winlazfileutils.inc
View File

@ -22,9 +22,9 @@ function GetCurrentDirUtf8: String;
var
U: UnicodeString;
begin
System.GetDir(0, U);
System.GetDir(0, U{%H-});
// Need to do an explicit encode to utf8, if compiled with "-dDisableUtf8RTL"
Result := UTF8Encode(U);
Result := {%H-}U;
end;
procedure GetDirUtf8(DriveNr: Byte; var Dir: String);
@ -33,12 +33,12 @@ var
begin
{$PUSH}
{$IOCHECKS OFF}
GetDir(DriveNr, U);
GetDir(DriveNr, U{%H-});
if IOResult <> 0 then
U := UnicodeString(Chr(DriveNr + Ord('A') - 1) + ':\');
{$POP}
// Need to do an explicit encode to utf8, if compiled with "-dDisableUtf8RTL"
Dir := UTF8Encode(U);
Dir := {%H-}U;
end;
function FileOpenUtf8(Const FileName : string; Mode : Integer) : THandle;