global.~pas

delphi自动出题系统源代码,有兴趣的可以来看看！

unit global;

interface

implementation

end.


   unit global;

interface

var
  logined:boolean;
  global_userid: string;
  global_password: string;