vanam srihari kumar a écrit:
The following works as you expect
-------------------------------------------------------- program ModDemo3 (Output);
import DemoMod4; DemoMod3;
begin readenv; writeln('program PAS_DATABASE = ',PAS_DATABASE); (*here also PAS_DATABASE is printing nothing*) end. -------------------------------------------------------- Module DemoMod4 (Output);
export DemoMod4=all;
type FileNameString = string(80); var PAS_DATABASE : FileNameString;
end;
end. (*Is it possible to make these variables global, without using export?*) ---------------------------------------------------------- Module DemoMod3 (Output);
export DemoMod3=all; procedure readenv;
end;
import gpc; DemoMod4;
procedure readenv; var pascalEnv : string(80); begin pascalEnv:='PAS_DATABASE'; pascalEnv:=getenv(pascalEnv); writeln('module pascalEnv = ',pascalEnv); PAS_DATABASE := Copy(pascalEnv,1,Length(pascalEnv)); writeln('module PAS_DATABASE = ',PAS_DATABASE); (*here PAS_DATABASE is printing nothing but pascalEnv is ok*) end;
end. ----------------------------------------------------------
if you type
gp ModDemo3.pas set PAS_DATABASE=toto < have you done that ? ModDemo3
module pascalEnv = toto module PAS_DATABASE = toto program PAS_DATABASE = toto
Maurice