浏览代码

* add overload to getenvironmentvariable so that it is also found when windows is before sysutils in the uses list. bug #39448

marcoonthegit 3 年之前
父节点
当前提交
c203097ec2
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/objpas/sysutils/osutilsh.inc

+ 2 - 2
rtl/objpas/sysutils/osutilsh.inc

@@ -23,8 +23,8 @@ Procedure RaiseLastOSError;overload;
 Procedure RaiseLastOSError(LastError: Integer);overload;
 procedure CheckOSError(LastError: Integer);platform;{$ifdef SYSTEMINLINE}inline;{$endif}
 
-Function GetEnvironmentVariable(Const EnvVar : AnsiString) : AnsiString;
-Function GetEnvironmentVariable(Const EnvVar : UnicodeString) : UnicodeString;
+Function GetEnvironmentVariable(Const EnvVar : AnsiString) : AnsiString; overload;
+Function GetEnvironmentVariable(Const EnvVar : UnicodeString) : UnicodeString; overload;
 Function GetEnvironmentString(Index : Integer) : {$ifdef FPC_RTL_UNICODE}UnicodeString{$else}AnsiString{$endif};
 Function GetEnvironmentVariableCount : Integer;
 {$IFDEF HAS_SLEEP}