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

+ real (ansistring) implementation

Browse Source
This commit is contained in:
Tomas Hajny 2000-10-28 16:56:02 +00:00
parent c3025eb50b
commit 4bbbb373df
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/os2/ezcgi.inc
View File

@ -14,18 +14,26 @@
**********************************************************************}
Uses Dos;
Uses DosCalls;
{ Declared EXPLICITLY with Ansistring, so NO mistaking is possible }
Function Getenv (Var EnvVar : AnsiString): AnsiString;
function GetEnv (var EnvVar: AnsiString): AnsiString;
var RC: longint;
P: PChar;
begin
Result:=Dos.Getenv(EnvVar);
RC := DosScanEnv (PChar (EnvVar), P);
GetEnv := P;
end;
{
$Log$
Revision 1.3 2000-08-25 17:33:44 hajny
Revision 1.4 2000-10-28 16:56:02 hajny
+ real (ansistring) implementation
Revision 1.3 2000/08/25 17:33:44 hajny
* Made compilable again (missing bracket at the begin of logs)
Revision 1.2 2000/07/13 11:33:01 michael