新建一个公用单元,专门放置公用全局变量
unit untCommon;
interface
var
v1:integer;
v2:string;
end.
-----------------
unit unit1;
interface
uses
windows, ................, untCommon ; //在每个需要使用v1、v2变量的单元中引用上面那个单元untCommon就可以了
转载于:https://www.cnblogs.com/kylskjb/archive/2009/11/27/1612327.html