单元一定义
unit unit1;
interface
uses System.SysUtils;
type
TMyclass = class(TObject)
public
procedure test1;
procedure test2;
function getValue:Integer;
end;
//这里是全局变量,只要在其他单元引用了unit1单元,初始化后可以直接访问
//当然,如果在其他单元改变myclass指针地址,那么所有引用过本单元的,其myclass指针地址同样被改变
//故称全局变量
var myclass: