paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 10:00:32 +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: branches/fixes_2_0@62863 -
This commit is contained in:
mattias 2020-04-02 15:56:39 +00:00
parent 040456bf0e
commit 9f19d60293
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;