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

LCL: added SysErrorMessageUTF8

Browse Source 
git-svn-id: trunk@16657 -
This commit is contained in:
vincents 2008-09-19 21:14:03 +00:00
parent 0f1e56d462
commit 46f03b20ca
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/fileutil.pas
View File

@ -216,6 +216,9 @@ function GetEnvironmentStringUTF8(Index: Integer): string;
function GetEnvironmentVariableUTF8(const EnvVar: string): String; function GetEnvironmentVariableUTF8(const EnvVar: string): String;
function GetAppConfigDirUTF8(Global: Boolean): string; function GetAppConfigDirUTF8(Global: Boolean): string;
// other
function SysErrorMessageUTF8(ErrorCode: Integer): String;
implementation implementation
uses uses

5
lcl/include/fileutil.inc
View File

@ -243,6 +243,11 @@ begin
Result:=SysToUTF8(SysUtils.GetAppConfigDir(Global)); Result:=SysToUTF8(SysUtils.GetAppConfigDir(Global));
end; end;
function SysErrorMessageUTF8(ErrorCode: Integer): String;
begin
Result:=SysToUTF8(SysUtils.SysErrorMessage(ErrorCode));
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
DirPathExists DirPathExists
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}