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

LazFileUtils: use Utf8ToSys in the unix implementation of FileOpenUtf8.

Browse Source 
git-svn-id: trunk@41278 -
This commit is contained in:
bart 2013-05-19 11:12:52 +00:00
parent 1b61e2844c
commit 39903ad024
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/unixlazfileutils.inc
View File

@ -7,7 +7,7 @@ end;
function FileOpenUTF8(Const FileName : string; Mode : Integer) : THandle; function FileOpenUTF8(Const FileName : string; Mode : Integer) : THandle;
begin begin
Result := SysUtils.FileOpen(FileName, Mode); Result := SysUtils.FileOpen(UTF8ToSys(FileName), Mode);
end; end;
function FileCreateUTF8(Const FileName : string) : THandle; function FileCreateUTF8(Const FileName : string) : THandle;