paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 18:30:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Move SysErrorMessageUTF8 to LazUtf8 (and inline it in FileUtil).

Browse Source 
Part of the ongoing restructuring of LazUtils.

git-svn-id: trunk@41588 -
This commit is contained in:
bart 2013-06-08 14:54:15 +00:00
parent bcea8662ff
commit 555ede86aa
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/fileutil.inc
View File

@ -219,7 +219,7 @@ end;
function SysErrorMessageUTF8(ErrorCode: Integer): String;
begin
Result:=SysToUTF8(SysUtils.SysErrorMessage(ErrorCode));
Result := LazUtf8.SysErrorMessageUTF8(ErrorCode);
end;
function DirPathExists(const FileName: String): Boolean;

2
components/lazutils/fileutil.pas
View File

@ -269,7 +269,7 @@ function GetAppConfigFileUTF8(Global: Boolean; SubDir: boolean = false;
CreateDir: boolean = false): string;
// other
function SysErrorMessageUTF8(ErrorCode: Integer): String;
function SysErrorMessageUTF8(ErrorCode: Integer): String; inline;
implementation

7
components/lazutils/lazutf8.pas
View File

@ -39,6 +39,8 @@ function ParamStrUTF8(Param: Integer): string;
function GetEnvironmentStringUTF8(Index: Integer): string;
function GetEnvironmentVariableUTF8(const EnvVar: string): String;
function SysErrorMessageUTF8(ErrorCode: Integer): String;
function UTF8CharacterLength(p: PChar): integer;
function UTF8Length(const s: string): PtrInt;
@ -232,6 +234,11 @@ begin
Result:=ConsoleToUTF8(SysUtils.GetEnvironmentVariable(UTF8ToSys(EnvVar)));
end;
function SysErrorMessageUTF8(ErrorCode: Integer): String;
begin
Result := SysToUTF8(SysUtils.SysErrorMessage(ErrorCode));
end;
function UTF8CharacterLength(p: PChar): integer;
begin