W wangjerry Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-13 #2 unit UnitA; interface var Str:string; implementation end. unit UnitB; interface uses UnitA; function a:string; implementation function a:string; begin a:=Str; end;
unit UnitA; interface var Str:string; implementation end. unit UnitB; interface uses UnitA; function a:string; implementation function a:string; begin a:=Str; end;
吕 吕雪松 Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-13 #3 把UnitA写到UnitB中的Uses部分（你应该知道有二个地方可以写喔），就可以在UnitB中 直接调用UnitA中的全局变量了，如果有同UnitB中冲突的变量名（如变量名称相同），则可 以在变量名前加单元名就可以了，如UnitA.Var1,UnitB.Var1。
把UnitA写到UnitB中的Uses部分（你应该知道有二个地方可以写喔），就可以在UnitB中 直接调用UnitA中的全局变量了，如果有同UnitB中冲突的变量名（如变量名称相同），则可 以在变量名前加单元名就可以了，如UnitA.Var1,UnitB.Var1。
H Huiber Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-13 #4 如在unitA中定义： var MyString: String; 在unitB中,加入 Uses unitA; 使用可如下，如： Button1.Caption := Unit1.Mystring;
C ccweifen Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-13 #5 要使用哪个单元中的变量就USES那个单元就行了。
