paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* GetEnvironmentVariable now really merged

Browse Source
This commit is contained in:
Tomas Hajny 2001-02-21 21:23:38 +00:00
parent d093c5f047
commit 18a6af4e62
1 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/os2/sysutils.pp
View File

@ -744,6 +744,22 @@ begin
end;
{****************************************************************************
OS Utils
****************************************************************************}
Function GetEnvironmentVariable(Const EnvVar : String) : String;
var P: PChar;
begin
if DosScanEnv (PChar (EnvVar), P) = 0
then GetEnvironmentVariable := StrPas (P)
else GetEnvironmentVariable := '';
end;
{****************************************************************************
Initialization code
****************************************************************************}
@ -755,9 +771,13 @@ Finalization
OutOfMemory.Free;
InValidPointer.Free;
end.
{
$Log$
Revision 1.8 2001-02-20 22:14:19 peter
Revision 1.9 2001-02-21 21:23:38 hajny
* GetEnvironmentVariable now really merged
Revision 1.8 2001/02/20 22:14:19 peter
* merged getenvironmentvariable
Revision 1.7 2001/01/13 11:10:59 hajny
@ -788,17 +808,3 @@ end.
* forgot the add command :(
}
{****************************************************************************
OS Utils
****************************************************************************}
Function GetEnvironmentVariable(Const EnvVar : String) : String;
begin
Resumt:=Getenv(EnvVar);
end;
Revision 1.1.2.6 2001/02/20 21:19:28 michael
+ Added GetEnvironmentVariable function