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

codetools: inlining

Browse Source 
git-svn-id: trunk@41744 -
This commit is contained in:
mattias 2013-06-17 13:32:38 +00:00
parent c97895ac60
commit 5ba261921d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/fileprocs.pas
View File

@ -215,9 +215,9 @@ function SysToUTF8(const s: string): string; inline;// as AnsiToUTF8 but more in
function UTF8CharacterLength(p: PChar): integer; inline;
// environment
function ParamStrUTF8(Param: Integer): string;
function GetEnvironmentStringUTF8(Index : Integer): String;
function GetEnvironmentVariableUTF8(const EnvVar: String): String;
function ParamStrUTF8(Param: Integer): string; inline;
function GetEnvironmentStringUTF8(Index : Integer): String; inline;
function GetEnvironmentVariableUTF8(const EnvVar: String): String; inline;
procedure InvalidateFileStateCache(const Filename: string = ''); inline;
@ -397,17 +397,17 @@ end;
function ParamStrUTF8(Param: Integer): string;
begin
Result:=SysToUTF8(ObjPas.ParamStr(Param));
Result:=LazUTF8.ParamStrUTF8(Param);
end;
function GetEnvironmentStringUTF8(Index: Integer): String;
begin
Result:=SysToUTF8(SysUtils.GetEnvironmentString(Index));
Result:=LazUTF8.GetEnvironmentStringUTF8(Index);
end;
function GetEnvironmentVariableUTF8(const EnvVar: String): String;
begin
Result:=SysToUTF8(SysUtils.GetEnvironmentVariable(UTF8ToSys(EnvVar)));
Result:=LazUTF8.GetEnvironmentVariableUTF8(EnvVar);
end;
function CompareFilenames(const Filename1, Filename2: string): integer;